代码搜索：LISP编程
找到约 10,000 项符合「LISP编程」的源代码
代码结果 10,000
www.eeworm.com/read/144211/5753139
lisp
#------------------------------------------------------------------------------
# lisp: file(1) magic for lisp programs
#
# various lisp types, from Daniel Quinlan (quinlan@yggdrasil.com)
0 string ;
www.eeworm.com/read/276929/4160889
lisp
#------------------------------------------------------------------------------
# lisp: file(1) magic for lisp programs
#
# various lisp types, from Daniel Quinlan (quinlan@yggdrasil.com)
# updated
www.eeworm.com/read/336501/12440934
-
VB控制AUTOCAD的教程，副上本人的原程序，学成后可领绘图倍感轻松。
不过此须编程基础，至少是lisp.
(如下图：)
执行命令，后先框选左视图，再依次选右视图两垂线，程序智能绘出三孔的投影图。
可看到，短短五次鼠标点击便可完成此工作，可见VB开发效率之高。
记住：黄天不负有心人。 哈哈哈哈哈！！！！ ...
www.eeworm.com/read/187102/8856013
test lisp.test
#! /bin/sh
# Test to make sure lisp handling works.
. $srcdir/defs || exit 1
cat >> configure.in Makefile.am foo.el
: > elis
www.eeworm.com/read/187102/8856376
am lisp.am
## automake - create Makefile.in from Makefile.am
## Copyright (C) 1996, 1998 Free Software Foundation, Inc.
## This program is free software; you can redistribute it and/or modify
## it under the te
www.eeworm.com/read/383726/8923336
doc lisp.doc
www.eeworm.com/read/365496/9861075
c lisp.c
/*
* $Id: lisp.c 443 2006-05-30 04:37:13Z darren $
*
* Copyright (c) 2000-2002, Darren Hiebert
*
* This source code is released for free distribution under the terms of the
* GNU General Publi
www.eeworm.com/read/161842/10363704
cpp lisp.cpp
///////////////////////////////////////////////////////////////////////////
// File: lisp.cpp
// Version: 1.1.0.4
// Updated: 19-Jul-1998
//
// Copyright: Ferdinand Prantl, portions by St
www.eeworm.com/read/424339/10461669
lisp geometry.lisp
(in-package :gcode)
(defstruct 2d-point
x y)
(defstruct line
a b)
(defstruct circle
centre radius)
(defun square (x)
(* x x))
(defun cube (x)
(* x x x))
(defun 2-point-length (p1 p2)
www.eeworm.com/read/424338/10461683
lisp arc.lisp
(in-package :gcode)
(defstruct arc
a b centre direction)
(defun arc-radius (arc)
(line-length (make-line :a (arc-a arc) :b (arc-centre arc))))
(defun arc-angle (arc)
(with-slots (a b centre d