Scheme and Common Lisp use different names for some of the basic system functions. Many Lisp programs can be translated to the other dialect simply by changing these names (or by providing the existing names as macros or functions). Compatibility packages exist to allow programs in one dialect to run in the other dialect.
The following table gives correspondences between Scheme functions and the equivalent Common Lisp functions.
| Scheme: | Common Lisp: |
| (define (fn args ...) code) | (defun fn (args ...) code) |
| begin | progn |
| set! | setq |
| eq? | eq |
| eqv? | eql |
| equal? | equal |
| number? | numberp |
| zero? | zerop |
| pair? | consp |
| null? | null |
| display | princ |
| write | prin1 |
| newline | terpri |
| (list-tail lst n) | (nthcdr n lst) |
| (list-ref lst n) | (nth n lst) |
| subset? | subsetp |
| map | mapcar |
| for-each | mapc |
| vector-ref | aref |
| vector-set! | (setf (aref ...) val) |
| substring | subseq |
| #t | t |
| #f | nil |
| '() | '() or nil |
The following table lists standard Common Lisp functions that are provided in the file initdr.scm.（http://www.cs.utexas.edu/ftp/bogo/cs307/initdr.scm）
| dotimes |
| dolist |
| intersection |
| union |
| set-difference |
| copy-list |
| subset |
| every |
| some |
| copy-tree |
| subst |
| sublis |
| nconc |
| nreverse |
转自：