;;; -*- Mode:LISP; Package:USER; Readtable:CL; Base:10 -*- (let ((official '( &allow-other-keys &aux &body &environment &key &optional &rest &whole * ** *** *applyhook* *break-on-warnings* *debug-io* *default-pathname-defaults* *error-output* *evalhook* *features* *load-verbose* *macroexpand-hook* *modules* *package* *print-array* *print-base* *print-case* *print-circle* *print-escape* *print-gensym* *print-length* *print-level* *print-pretty* *print-radix* *query-io* *random-state* *read-base* *read-default-float-format* *read-suppress* *readtable* *standard-input* *standard-output* *terminal-io* *trace-output* + ++ +++ - / // /// /= 1+ 1- < <= = > >= abs acons acos acosh adjoin adjust-array adjustable-array-p alpha-char-p alphanumericp and append apply applyhook apropos apropos-list aref array array-dimension array-dimension-limit array-dimensions array-element-type array-has-fill-pointer-p array-in-bounds-p array-rank array-rank-limit array-row-major-index array-total-size array-total-size-limit arrayp ash asin asinh assert assoc assoc-if assoc-if-not atan atanh atom bignum bit bit-and bit-andc1 bit-andc2 bit-eqv bit-ior bit-nand bit-nor bit-not bit-orc1 bit-orc2 bit-vector bit-vector-p bit-xor block boole boole-1 boole-2 boole-and boole-andc1 boole-andc2 boole-c1 boole-c2 boole-clr boole-eqv boole-ior boole-nand boole-nor boole-orc1 boole-orc2 boole-set boole-xor both-case-p boundp break butlast byte byte-position byte-size caaaar caaadr caaar caadar caaddr caadr caar cadaar cadadr cadar caddar cadddr caddr cadr call-arguments-limit car case catch ccase cdaaar cdaadr cdaar cdadar cdaddr cdadr cdar cddaar cddadr cddar cdddar cddddr cdddr cddr cdr ceiling cerror char char-bit char-bits char-bits-limit char-code char-code-limit char-control-bit char-downcase char-equal char-font char-font-limit char-greaterp char-hyper-bit char-int char-lessp char-meta-bit char-name char-not-equal char-not-greaterp char-not-lessp char-super-bit char-upcase char/= char< char<= char= char> char>= character characterp check-type cis clear-input clear-output close clrhash code-char coerce common commonp compilation-speed compile compile-file compiled-function compiled-function-p compiler-let complex complexp concatenate cond conjugate cons consp constantp copy-alist copy-list copy-readtable copy-seq copy-symbol copy-tree cos cosh count count-if count-if-not ctypecase decf declaration declare decode-float decode-universal-time defconstant define-modify-macro define-setf-method defmacro defparameter defsetf defstruct deftype defun defvar delete delete-duplicates delete-file delete-if delete-if-not denominator deposit-field describe digit-char digit-char-p directory directory-namestring disassemble do do* do-all-symbols do-external-symbols do-symbols documentation dolist dotimes double-float double-float-epsilon double-float-negative-epsilon dpb dribble ecase ed eighth elt encode-universal-time endp enough-namestring eq eql equal equalp error etypecase eval eval-when evalhook evenp every exp export expt fboundp fceiling ffloor fifth file-author file-length file-namestring file-position file-write-date fill fill-pointer find find-all-symbols find-if find-if-not find-package find-symbol finish-output first fixnum flet float float-digits float-precision float-radix float-sign floatp floor fmakunbound force-output format fourth fresh-line fround ftruncate ftype funcall function functionp gcd gensym gentemp get get-decoded-time get-dispatch-macro-character get-internal-real-time get-internal-run-time get-macro-character get-output-stream-string get-properties get-setf-method get-setf-method-multiple-value get-universal-time getf gethash go graphic-char-p hash-table hash-table-count hash-table-p host-namestring identity if ignore imagpart import in-package incf inline input-stream-p inspect int-char integer integer-decode-float integer-length integerp intern internal-time-units-per-second intersection isqrt keyword keywordp labels lambda lambda-list-keywords lambda-parameters-limit last lcm ldb ldb-test ldiff least-negative-double-float least-negative-long-float least-negative-short-float least-negative-single-float least-positive-double-float least-positive-long-float least-positive-short-float least-positive-single-float length let let* lisp-implementation-type lisp-implementation-version list list* list-all-packages list-length listen listp load locally log logand logandc1 logandc2 logbitp logcount logeqv logior lognand lognor lognot logorc1 logorc2 logtest logxor long-float long-float-epsilon long-float-negative-epsilon long-site-name loop lower-case-p machine-instance machine-type machine-version macro-function macroexpand macroexpand-1 macrolet make-array make-broadcast-stream make-char make-concatenated-stream make-dispatch-macro-character make-echo-stream make-hash-table make-list make-package make-pathname make-random-state make-sequence make-string make-string-input-stream make-string-output-stream make-symbol make-synonym-stream make-two-way-stream makunbound map mapc mapcan mapcar mapcon maphash mapl maplist mask-field max member member-if member-if-not merge merge-pathnames min minusp mismatch mod most-negative-double-float most-negative-fixnum most-negative-long-float most-negative-short-float most-negative-single-float most-positive-double-float most-positive-fixnum most-positive-long-float most-positive-short-float most-positive-single-float multiple-value-bind multiple-value-call multiple-value-list multiple-value-prog1 multiple-value-setq multiple-values-limit name-char namestring nbutlast nconc nil nintersection ninth not notany notevery notinline nreconc nreverse nset-difference nset-exclusive-or nstring-capitalize nstring-downcase nstring-upcase nsublis nsubst nsubst-if nsubst-if-not nsubstitute nsubstitute-if nsubstitute-if-not nth nthcdr null number numberp numerator nunion oddp open optimize or otherwise output-stream-p package package-name package-nicknames package-shadowing-symbols package-use-list package-used-by-list packagep pairlis parse-integer parse-namestring pathname pathname-device pathname-directory pathname-host pathname-name pathname-type pathname-version pathnamep peek-char phase pi plusp pop position position-if position-if-not pprint prin1 prin1-to-string princ princ-to-string print probe-file proclaim prog prog* prog1 prog2 progn progv provide psetf psetq push pushnew quote random random-state random-state-p rassoc rassoc-if rassoc-if-not ratio rational rationalize rationalp read read-byte read-char read-char-no-hang read-delimited-list read-from-string read-line read-preserving-whitespace readtable readtablep realpart reduce rem remf remhash remove remove-duplicates remove-if remove-if-not remprop rename-file rename-package replace require rest return return-from revappend reverse room rotatef round rplaca rplacd safety satisfies sbit scale-float schar search second sequence set set-char-bit set-difference set-dispatch-macro-character set-exclusive-or set-macro-character set-syntax-from-char setf setq seventh shadow shadowing-import shiftf short-float short-float-epsilon short-float-negative-epsilon short-site-name signed-byte signum simple-array simple-bit-vector simple-bit-vector-p simple-string simple-string-p simple-vector simple-vector-p sin single-float single-float-epsilon single-float-negative-epsilon sinh sixth sleep software-type software-version some sort space special special-form-p speed sqrt stable-sort standard-char standard-char-p step stream stream-element-type streamp string string-capitalize string-char string-char-p string-downcase string-equal string-greaterp string-left-trim string-lessp string-not-equal string-not-greaterp string-not-lessp string-right-trim string-trim string-upcase string/= string< string<= string= string> string>= stringp structure sublis subseq subsetp subst subst-if subst-if-not substitute substitute-if substitute-if-not subtypep svref sxhash symbol symbol-function symbol-name symbol-package symbol-plist symbol-value symbolp t tagbody tailp tan tanh tenth terpri the third throw time trace tree-equal truename truncate type type-of typecase typep unexport unintern union unless unread-char unsigned-byte untrace unuse-package unwind-protect upper-case-p use-package user-homedir-pathname values values-list variable vector vector-pop vector-push vector-push-extend vectorp warn when with-input-from-string with-open-file with-open-stream with-output-to-string write write-byte write-char write-line write-string write-to-string y-or-n-p yes-or-no-p zerop )) (lambda (sort (let (l) (do-external-symbols (s (find-package :lisp)) (pushnew s l)) l) #'alphalessp))) (format t "~%In LAMBDA but not in Steele:~{ ~s~}" (sort (set-difference lambda official) #'alphalessp)) (format t "~%In Steele but not in LAMBDA:~{ ~s~}" (sort (set-difference official lambda) #'alphalessp)))