Skip to content

Instantly share code, notes, and snippets.

@valvallow
Created June 20, 2010 13:11
Show Gist options
  • Save valvallow/445834 to your computer and use it in GitHub Desktop.
Save valvallow/445834 to your computer and use it in GitHub Desktop.
Common Lisp, On Lisp
;; On Lisp P.400
(princ (let ((syms nil))
(do-symbols (s)
(push s syms))
(sort syms #'(lambda (x y)
(> (length (symbol-name x))
(length (symbol-name y)))))))
;; (LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT
;; LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT
;; LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT
;; LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT
;; LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT
;; LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT
;; LEAST-POSITIVE-NORMALIZED-LONG-FLOAT
;; LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT
;; FUNDAMENTAL-CHARACTER-OUTPUT-STREAM
;; UPDATE-INSTANCE-FOR-DIFFERENT-CLASS
;; UPDATE-INSTANCE-FOR-REDEFINED-CLASS
;; FUNDAMENTAL-CHARACTER-INPUT-STREAM
;; LOAD-LOGICAL-PATHNAME-TRANSLATIONS
;; IMPLICIT-GENERIC-FUNCTION-WARNING
;; SIMPLE-CONDITION-FORMAT-ARGUMENTS FUNDAMENTAL-BINARY-OUTPUT-STREAM
;; *EFFICIENCY-NOTE-COST-THRESHOLD* FLOATING-POINT-INVALID-OPERATION
;; FUNDAMENTAL-BINARY-INPUT-STREAM *STACK-ALLOCATE-DYNAMIC-EXTENT*
;; *COMPILER-PRINT-VARIABLE-ALIST* SIMPLE-CONDITION-FORMAT-CONTROL
;; DOUBLE-FLOAT-POSITIVE-INFINITY IMPLICIT-GENERIC-FUNCTION-NAME
;; DOUBLE-FLOAT-NEGATIVE-INFINITY SINGLE-FLOAT-NEGATIVE-INFINITY
;; SINGLE-FLOAT-POSITIVE-INFINITY INTERNAL-TIME-UNITS-PER-SECOND
;; SHORT-FLOAT-POSITIVE-INFINITY REMOVE-IMPLEMENTATION-PACKAGE
;; SHORT-FLOAT-NEGATIVE-INFINITY MAKE-DISPATCH-MACRO-CHARACTER
;; LOGICAL-PATHNAME-TRANSLATIONS SINGLE-FLOAT-NEGATIVE-EPSILON
;; PPRINT-EXIT-IF-LIST-EXHAUSTED DOUBLE-FLOAT-NEGATIVE-EPSILON
;; FUNDAMENTAL-CHARACTER-STREAM LONG-FLOAT-NEGATIVE-INFINITY
;; *DEBUG-PRINT-VARIABLE-ALIST* LONG-FLOAT-POSITIVE-INFINITY
;; *DEBUG-PRINT-VARIABLE-ALIST* *ONLY-BLOCK-START-LOCATIONS*
;; TWO-WAY-STREAM-OUTPUT-STREAM INVOKE-RESTART-INTERACTIVELY
;; SET-DISPATCH-MACRO-CHARACTER SHORT-FLOAT-NEGATIVE-EPSILON
;; GET-DISPATCH-MACRO-CHARACTER DEFCONSTANT-UNEQL-NEW-VALUE
;; DEFCONSTANT-UNEQL-OLD-VALUE *MODULE-PROVIDER-FUNCTIONS*
;; PACKAGE-IMPLEMENTED-BY-LIST PACKAGE-LOCKED-ERROR-SYMBOL
;; SYMBOL-PACKAGE-LOCKED-ERROR *TRACE-ENCAPSULATE-DEFAULT*
;; *DEFAULT-PATHNAME-DEFAULTS* UPGRADED-ARRAY-ELEMENT-TYPE
;; HASH-TABLE-REHASH-THRESHOLD LEAST-POSITIVE-DOUBLE-FLOAT
;; CONCATENATED-STREAM-STREAMS LEAST-NEGATIVE-DOUBLE-FLOAT
;; MAKE-LOAD-FORM-SAVING-SLOTS *READ-DEFAULT-FLOAT-FORMAT*
;; LISP-IMPLEMENTATION-VERSION LONG-FLOAT-NEGATIVE-EPSILON
;; LEAST-POSITIVE-SINGLE-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT
;; TWO-WAY-STREAM-INPUT-STREAM ADD-IMPLEMENTATION-PACKAGE
;; *SHOW-ENTRY-POINT-DETAILS* TRANSLATE-LOGICAL-PATHNAME
;; UPGRADED-COMPLEX-PART-TYPE LEAST-POSITIVE-SHORT-FLOAT
;; MOST-NEGATIVE-DOUBLE-FLOAT ARITHMETIC-ERROR-OPERATION
;; COMPUTE-APPLICABLE-METHODS LEAST-NEGATIVE-SHORT-FLOAT
;; MOST-NEGATIVE-SINGLE-FLOAT MOST-POSITIVE-SINGLE-FLOAT
;; READ-PRESERVING-WHITESPACE MOST-POSITIVE-DOUBLE-FLOAT
;; FUNCTION-LAMBDA-EXPRESSION FUNDAMENTAL-BINARY-STREAM
;; FUNDAMENTAL-OUTPUT-STREAM HASH-TABLE-SYNCHRONIZED-P
;; *INTEXP-MAXIMUM-EXPONENT* *UNDEFINED-WARNING-LIMIT*
;; *ENCLOSING-SOURCE-CUTOFF* MOST-POSITIVE-SHORT-FLOAT
;; MOST-NEGATIVE-SHORT-FLOAT MAKE-STRING-OUTPUT-STREAM
;; PACKAGE-SHADOWING-SYMBOLS ECHO-STREAM-OUTPUT-STREAM
;; STANDARD-GENERIC-FUNCTION DEFINE-METHOD-COMBINATION
;; PRINT-NOT-READABLE-OBJECT LEAST-NEGATIVE-LONG-FLOAT
;; LEAST-POSITIVE-LONG-FLOAT ARITHMETIC-ERROR-OPERANDS
;; STREAM-ADVANCE-TO-COLUMN FUNDAMENTAL-INPUT-STREAM
;; STREAM-READ-CHAR-NO-HANG RESTRICT-COMPILER-POLICY
;; DESCRIBE-COMPILER-POLICY *INLINE-EXPANSION-LIMIT*
;; BYTES-CONSED-BETWEEN-GCS *TRACE-INDENTATION-STEP*
;; UNWIND-TO-FRAME-AND-CALL LISP-IMPLEMENTATION-TYPE
;; MAKE-STRING-INPUT-STREAM WITH-HASH-TABLE-ITERATOR
;; BROADCAST-STREAM-STREAMS TYPE-ERROR-EXPECTED-TYPE
;; FLOATING-POINT-UNDERFLOW ARRAY-HAS-FILL-POINTER-P
;; ENSURE-DIRECTORIES-EXIST GET-OUTPUT-STREAM-STRING
;; METHOD-COMBINATION-ERROR MAKE-CONCATENATED-STREAM
;; MOST-POSITIVE-LONG-FLOAT MOST-NEGATIVE-LONG-FLOAT
;; ECHO-STREAM-INPUT-STREAM STEP-FINISHED-CONDITION
;; PACKAGE-IMPLEMENTS-LIST PARSE-NATIVE-NAMESTRING
;; *DERIVE-FUNCTION-TYPES* STEP-VARIABLE-CONDITION
;; *EFFICIENCY-NOTE-LIMIT* *DEBUG-BEGINNER-HELP-P*
;; *MAX-TRACE-INDENTATION* WITH-CONDITION-RESTARTS
;; PRINT-UNREADABLE-OBJECT LAMBDA-PARAMETERS-LIMIT
;; MAKE-INSTANCES-OBSOLETE ENSURE-GENERIC-FUNCTION
;; *PRINT-PPRINT-DISPATCH* WITH-STANDARD-IO-SYNTAX
;; *COMPILE-FILE-TRUENAME* *COMPILE-FILE-PATHNAME*
;; COMPILER-MACRO-FUNCTION FLOATING-POINT-OVERFLOW
;; DEFCONSTANT-UNEQL-NAME DEFINE-HASH-TABLE-TEST
;; WITH-LOCKED-HASH-TABLE *INVOKE-DEBUGGER-HOOK*
;; WITH-UNLOCKED-PACKAGES NAME-CONFLICT-FUNCTION
;; PACKAGE-LOCK-VIOLATION STREAM-EXTERNAL-FORMAT
;; ARRAY-TOTAL-SIZE-LIMIT HASH-TABLE-REHASH-SIZE
;; GET-INTERNAL-REAL-TIME WITH-INPUT-FROM-STRING
;; FLOATING-POINT-INEXACT STREAM-WRITE-SEQUENCE DEFINE-SOURCE-CONTEXT
;; DISABLE-PACKAGE-LOCKS STEP-VALUES-CONDITION NAME-CONFLICT-SYMBOLS
;; WITHOUT-PACKAGE-LOCKS STEP-CONDITION-RESULT FRAME-HAS-DEBUG-TAG-P
;; *PRINT-LOCATION-KIND* DEFINE-ALIEN-VARIABLE UNDEFINED-ALIEN-ERROR
;; DEFINE-COMPILER-MACRO COMPILE-FILE-PATHNAME PACKAGE-ERROR-PACKAGE
;; USER-HOMEDIR-PATHNAME SYNONYM-STREAM-SYMBOL REINITIALIZE-INSTANCE
;; ENCODE-UNIVERSAL-TIME ARRAY-ROW-MAJOR-INDEX DECODE-UNIVERSAL-TIME
;; ARRAY-DIMENSION-LIMIT WITH-COMPILATION-UNIT MAKE-BROADCAST-STREAM
;; MULTIPLE-VALUES-LIMIT WITH-PACKAGE-ITERATOR GET-INTERNAL-RUN-TIME
;; UNBOUND-SLOT-INSTANCE WITH-OUTPUT-TO-STRING STREAM-READ-SEQUENCE
;; STREAM-FILE-POSITION STREAM-FINISH-OUTPUT FLOAT-TRAPPING-NAN-P
;; ARRAY-STORAGE-VECTOR FLOAT-DENORMALIZED-P PACKAGE-LOCKED-ERROR
;; ENABLE-PACKAGE-LOCKS *FLUSH-DEBUG-ERRORS* UNLOAD-SHARED-OBJECT
;; DEFINE-ALIEN-ROUTINE MOST-NEGATIVE-FIXNUM INVALID-METHOD-ERROR
;; DEFINE-SETF-EXPANDER CALL-ARGUMENTS-LIMIT COPY-PPRINT-DISPATCH
;; LAMBDA-LIST-KEYWORDS INTEGER-DECODE-FLOAT DIRECTORY-NAMESTRING
;; NO-APPLICABLE-METHOD SINGLE-FLOAT-EPSILON MULTIPLE-VALUE-PROG1
;; SET-SYNTAX-FROM-CHAR INTERACTIVE-STREAM-P MOST-POSITIVE-FIXNUM
;; PACKAGE-USED-BY-LIST *PRINT-RIGHT-MARGIN* PPRINT-LOGICAL-BLOCK
;; DOUBLE-FLOAT-EPSILON STREAM-CLEAR-OUTPUT STREAM-WRITE-STRING
;; STREAM-START-LINE-P STREAM-FORCE-OUTPUT STEP-CONDITION-FORM
;; PROCESS-STATUS-HOOK STEP-CONDITION-ARGS SYMBOL-GLOBAL-VALUE
;; PROCESS-CORE-DUMPED CANCEL-FINALIZATION HASH-TABLE-WEAKNESS
;; UNMUFFLE-CONDITIONS STEP-FORM-CONDITION NAME-CONFLICT-DATUM
;; *DEBUG-HELP-STRING* SYSTEM-AREA-POINTER DEFINE-SYMBOL-MACRO
;; *PRINT-MISER-WIDTH* FILE-ERROR-PATHNAME COMPILED-FUNCTION-P
;; CONCATENATED-STREAM DEFINE-MODIFY-MACRO MULTIPLE-VALUE-CALL
;; SIMPLE-BIT-VECTOR-P MULTIPLE-VALUE-SETQ SHORT-FLOAT-EPSILON
;; GET-MACRO-CHARACTER READ-DELIMITED-LIST MAKE-SYNONYM-STREAM
;; DO-EXTERNAL-SYMBOLS STREAM-ELEMENT-TYPE INITIALIZE-INSTANCE
;; MAKE-TWO-WAY-STREAM MULTIPLE-VALUE-LIST STRING-NOT-GREATERP
;; STREAM-ERROR-STREAM SET-PPRINT-DISPATCH MULTIPLE-VALUE-BIND
;; WITH-SIMPLE-RESTART SET-MACRO-CHARACTER FUNDAMENTAL-STREAM
;; STREAM-UNREAD-CHAR STREAM-CLEAR-INPUT STREAM-LINE-LENGTH
;; STREAM-LINE-COLUMN *MUFFLED-WARNINGS* CODE-DELETION-NOTE
;; *COMPILE-PROGRESS* WEAK-POINTER-VALUE LOAD-SHARED-OBJECT
;; UNSIGNED-LONG-LONG PRINT-NOT-READABLE *MACROEXPAND-HOOK*
;; TRANSLATE-PATHNAME NSTRING-CAPITALIZE DESTRUCTURING-BIND
;; ARRAY-DISPLACEMENT ARRAY-ELEMENT-TYPE SIMPLE-BASE-STRING
;; PATHNAME-DIRECTORY FILE-STRING-LENGTH GET-SETF-EXPANSION
;; METHOD-COMBINATION LONG-FLOAT-EPSILON *BREAK-ON-SIGNALS*
;; SPECIAL-OPERATOR-P NSUBSTITUTE-IF-NOT ADJUSTABLE-ARRAY-P
;; VECTOR-PUSH-EXTEND GET-UNIVERSAL-TIME UNDEFINED-FUNCTION
;; STREAM-FRESH-LINE STREAM-WRITE-BYTE STREAM-WRITE-CHAR
;; SAVE-LISP-AND-DIE DEFCONSTANT-UNEQL MUFFLE-CONDITIONS
;; TIMER-SCHEDULED-P NATIVE-NAMESTRING MAKE-WEAK-POINTER
;; PROCESS-EXIT-CODE *DEBUG-CONDITION* BACKTRACE-AS-LIST
;; *TRACED-FUN-LIST* *IN-THE-DEBUGGER* *DEBUG-READTABLE*
;; DEFINE-ALIEN-TYPE ENOUGH-NAMESTRING STORAGE-CONDITION
;; PACKAGE-NICKNAMES READ-CHAR-NO-HANG COMPILED-FUNCTION
;; *STANDARD-OUTPUT* STRING-RIGHT-TRIM ALLOCATE-INSTANCE
;; NSET-EXCLUSIVE-OR SERIOUS-CONDITION STRING-CAPITALIZE
;; CHAR-NOT-GREATERP ARRAY-IN-BOUNDS-P FUNCTION-KEYWORDS
;; REMOVE-DUPLICATES COMPILATION-SPEED SIMPLE-BIT-VECTOR
;; SUBSTITUTE-IF-NOT SHARED-INITIALIZE DELETE-DUPLICATES
;; MAKE-RANDOM-STATE SIMPLE-TYPE-ERROR METHOD-QUALIFIERS
;; *COMPILE-VERBOSE* LIST-ALL-PACKAGES &ALLOW-OTHER-KEYS
;; STREAM-READ-BYTE STREAM-READ-CHAR STREAM-READ-LINE
;; STREAM-PEEK-CHAR *AFTER-GC-HOOKS* STRING-TO-OCTETS
;; COMPARE-AND-SWAP INTERACTIVE-EVAL FLOAT-INFINITY-P
;; RESOLVE-CONFLICT GET-BYTES-CONSED UNSCHEDULE-TIMER
;; PACKAGE-LOCKED-P DISABLE-DEBUGGER *EVALUATOR-MODE*
;; INHIBIT-WARNINGS CALL-WITH-TIMING OCTETS-TO-STRING
;; DO-DEBUG-COMMAND *STACK-TOP-HINT* SET-EXCLUSIVE-OR
;; PACKAGE-USE-LIST ARRAY-TOTAL-SIZE *STANDARD-INPUT*
;; ARITHMETIC-ERROR UNBOUND-VARIABLE STRING-NOT-LESSP
;; STRING-NOT-EQUAL SOFTWARE-VERSION STRUCTURE-OBJECT
;; NSTRING-DOWNCASE HASH-TABLE-COUNT ARRAY-DIMENSIONS
;; BROADCAST-STREAM PATHNAME-MATCH-P MAKE-ECHO-STREAM
;; *GENSYM-COUNTER* GENERIC-FUNCTION PARSE-NAMESTRING
;; STRING-LEFT-TRIM SIMPLE-CONDITION WITH-OPEN-STREAM
;; TYPE-ERROR-DATUM COMPUTE-RESTARTS GET-DECODED-TIME
;; FIND-ALL-SYMBOLS ARRAY-RANK-LIMIT READ-FROM-STRING
;; CALL-NEXT-METHOD LOGICAL-PATHNAME PATHNAME-VERSION
;; DEFINE-CONDITION *PRINT-READABLY* SHADOWING-IMPORT
;; DIVISION-BY-ZERO MACHINE-INSTANCE PROCESS-ALIVE-P *CORE-PATHNAME*
;; ENABLE-DEBUGGER GET-TIME-OF-DAY NATIVE-PATHNAME LIST-ALL-TIMERS
;; STANDARD-METHOD *READ-SUPPRESS* PRINC-TO-STRING *LOAD-TRUENAME*
;; STRUCTURE-CLASS FILE-WRITE-DATE SIMPLE-STRING-P OUTPUT-STREAM-P
;; CHAR-CODE-LIMIT NSET-DIFFERENCE STRING-DOWNCASE PATHNAME-DEVICE
;; DESCRIBE-OBJECT FILE-NAMESTRING PPRINT-DISPATCH HOST-NAMESTRING
;; HASH-TABLE-TEST SIMPLE-VECTOR-P MACHINE-VERSION INVOKE-DEBUGGER
;; SYMBOL-FUNCTION PRIN1-TO-STRING ARRAY-DIMENSION WILD-PATHNAME-P
;; STRING-GREATERP POSITION-IF-NOT SLOT-MAKUNBOUND *LOAD-PATHNAME*
;; MERGE-PATHNAMES MAKE-HASH-TABLE CELL-ERROR-NAME STANDARD-CHAR-P
;; FLOAT-PRECISION STANDARD-OBJECT LOAD-TIME-VALUE *COMPILE-PRINT*
;; SYMBOL-MACROLET WRITE-TO-STRING *DEBUGGER-HOOK* SHORT-SITE-NAME
;; HASH-TABLE-SIZE PROCESS-STATUS WEAK-POINTER-P *STEPPER-HOOK*
;; SCHEDULE-TIMER *ED-FUNCTIONS* UNLOCK-PACKAGE PROCESS-OUTPUT
;; STEP-CONDITION INTERNAL-DEBUG *TRACE-VALUES* UNSIGNED-SHORT
;; LOAD-1-FOREIGN SYNONYM-STREAM PPRINT-NEWLINE INPUT-STREAM-P
;; GET-PROPERTIES READTABLE-CASE COPY-STRUCTURE BUILT-IN-CLASS
;; *ERROR-OUTPUT* INTEGER-LENGTH MAKE-LOAD-FORM *TRACE-OUTPUT*
;; WITH-ACCESSORS *PRINT-ESCAPE* *LOAD-VERBOSE* ROW-MAJOR-AREF
;; COMPILER-MACRO SET-DIFFERENCE DO-ALL-SYMBOLS COPY-READTABLE
;; MACRO-FUNCTION SYMBOL-PACKAGE SIMPLE-WARNING *PRINT-GENSYM*
;; DYNAMIC-EXTENT *PRINT-CIRCLE* MUFFLE-WARNING *PRINT-PRETTY*
;; GRAPHIC-CHAR-P TWO-WAY-STREAM CHAR-NOT-LESSP MAKE-CONDITION
;; CHAR-NOT-EQUAL LONG-SITE-NAME NSTRING-UPCASE NSUBSTITUTE-IF
;; STANDARD-CLASS RENAME-PACKAGE NO-NEXT-METHOD WITH-OPEN-FILE
;; RANDOM-STATE-P PPRINT-TABULAR WRITE-SEQUENCE *RANDOM-STATE*
;; INVOKE-RESTART DELETE-PACKAGE UNWIND-PROTECT *PRINT-LENGTH*
;; STREAM-TERPRI STREAM-LISTEN STEP-CONTINUE PROCESS-CLOSE
;; PROCESS-PLIST POSIX-ENVIRON PROCESS-INPUT PROCESS-ERROR
;; *GC-RUN-TIME* NAME-CONFLICT COMPILER-NOTE *TRACE-FRAME*
;; UNSIGNED-LONG UNSIGNED-CHAR ALIEN-FUNCALL IGNORE-ERRORS
;; MAKE-SEQUENCE REMOVE-IF-NOT BYTE-POSITION OPEN-STREAM-P
;; FILE-POSITION *PRINT-ARRAY* PPRINT-LINEAR RASSOC-IF-NOT
;; STANDARD-CHAR CONTROL-ERROR PPRINT-INDENT PATHNAME-TYPE
;; *PRINT-LEVEL* SIMPLE-STRING STRING-UPCASE NINTERSECTION
;; *PRINT-LINES* DOCUMENTATION UNSIGNED-BYTE SOFTWARE-TYPE
;; *PRINT-RADIX* UNUSE-PACKAGE PROGRAM-ERROR NEXT-METHOD-P
;; PATHNAME-NAME NSUBST-IF-NOT FINISH-OUTPUT EXTENDED-CHAR
;; MEMBER-IF-NOT PATHNAME-HOST ALPHANUMERICP SUBSTITUTE-IF
;; MACROEXPAND-1 PARSE-INTEGER CHAR-GREATERP MAKE-PATHNAME
;; STYLE-WARNING DELETE-IF-NOT PACKAGE-ERROR *TERMINAL-IO*
;; READ-SEQUENCE CHAR-DOWNCASE REMOVE-METHOD DEPOSIT-FIELD
;; MAKE-INSTANCE STRING-STREAM SIMPLE-VECTOR SLOT-EXISTS-P
;; *SAVE-HOOKS* WEAK-POINTER PROCESS-KILL INVALID-FASL ALWAYS-BOUND
;; MAYBE-INLINE *EXIT-HOOKS* POSIX-GETENV *POSIX-ARGV* PROCESS-WAIT
;; LOCK-PACKAGE *INIT-HOOKS* WITH-TIMEOUT UNSIGNED-INT LOAD-FOREIGN
;; SINGLE-FLOAT EXTERN-ALIEN DOUBLE-FLOAT BIT-VECTOR-P *PRINT-CASE*
;; MAKE-PACKAGE COUNT-IF-NOT INTERSECTION UNBOUND-SLOT SLOT-UNBOUND
;; *PRINT-BASE* LOWER-CASE-P CHANGE-CLASS STREAM-ERROR HANDLER-BIND
;; UPPER-CASE-P SIMPLE-ARRAY PRINT-OBJECT CLEAR-OUTPUT APROPOS-LIST
;; ALPHA-CHAR-P FIND-RESTART ADJUST-ARRAY HASH-TABLE-P DECODE-FLOAT
;; FORCE-OUTPUT *LOAD-PRINT* DOUBLE-FLOAT RESTART-NAME FIND-PACKAGE
;; RESTART-CASE DEFPARAMETER RESTART-BIND WRITE-STRING FLOAT-DIGITS
;; STRING-LESSP STRING-EQUAL DIGIT-CHAR-P ASSOC-IF-NOT READER-ERROR
;; FILL-POINTER HANDLER-CASE &ENVIRONMENT SUBST-IF-NOT PACKAGE-NAME
;; SIMPLE-ERROR MACHINE-TYPE RANDOM-STATE SLOT-MISSING COMPILE-FILE
;; SYMBOL-PLIST SINGLE-FLOAT SYMBOL-VALUE FREEZE-TYPE ATOMIC-INCF
;; FLOAT-NAN-P RUN-PROGRAM *INSPECTED* PROCESS-PID PROCESS-PTY
;; UTF8-STRING BOOLE-ANDC2 MAKE-STRING MACROEXPAND LOOP-FINISH
;; MAKE-METHOD FILE-LENGTH FILE-AUTHOR CLEAR-INPUT MAKE-SYMBOL
;; UNREAD-CHAR ECHO-STREAM FILE-STREAM PARSE-ERROR YES-OR-NO-P
;; STORE-VALUE SLOT-BOUNDP DENOMINATOR SYMBOL-NAME FMAKUNBOUND
;; PPRINT-FILL USE-PACKAGE NSUBSTITUTE DECLARATION RATIONALIZE
;; RETURN-FROM FIND-METHOD SHORT-FLOAT END-OF-FILE LIST-LENGTH
;; FLOAT-RADIX FDEFINITION BOTH-CASE-P BASE-STRING FIND-SYMBOL
;; SIGNED-BYTE VALUES-LIST RENAME-FILE STABLE-SORT DEFCONSTANT
;; DISASSEMBLE FIND-IF-NOT *READTABLE* BOOLE-ANDC1 CONCATENATE
;; *READ-EVAL* STRING-TRIM DELETE-FILE COPY-SYMBOL CHAR-UPCASE
;; VECTOR-PUSH SCALE-FLOAT POSITION-IF CALL-METHOD *READ-BASE*
;; MAKE-TIMER TIMER-NAME NULL-ALIEN MAKE-ALIEN FREE-ALIEN LONG-FLOAT
;; ALIEN-SIZE WITH-ALIEN WITH-SLOTS COMPLEMENT SUBSTITUTE CHAR-LESSP
;; ARRAY-RANK PPRINT-POP FIND-CLASS BOOLE-ORC1 DO-SYMBOLS TYPE-ERROR
;; COPY-ALIST WRITE-LINE PROBE-FILE WRITE-BYTE HASH-TABLE CONSTANTLY
;; BOOLE-NAND WRITE-CHAR FLOAT-SIGN *DEBUG-IO* FILE-ERROR TREE-EQUAL
;; NAMESTRING CHECK-TYPE IN-PACKAGE BOOLE-ORC2 MAKE-ARRAY SLOT-VALUE
;; CHARACTERP DEFGENERIC CELL-ERROR LONG-FLOAT *FEATURES* CHAR-EQUAL
;; DIGIT-CHAR ADD-METHOD BIT-VECTOR MAKUNBOUND READTABLEP CLASS-NAME
;; VECTOR-POP FRESH-LINE MASK-FIELD DEFPACKAGE *QUERY-IO* PPRINT-TAB
;; 2010-01-06 UNPROFILE TRULY-THE STEP-NEXT DEFGLOBAL STEP-INTO
;; PROCESS-P BACKTRACE LONG-LONG SAP-ALIEN ALIEN-SAP GET-ERRNO
;; BIT-ANDC1 DEFMETHOD READ-LINE FUNCTIONP FORMATTER NOTINLINE
;; BOOLE-AND PEEK-CHAR READ-BYTE BIT-ANDC2 DIRECTORY STRUCTURE
;; &OPTIONAL NUMERATOR CONSTANTP DEFSTRUCT SATISFIES FTRUNCATE
;; BYTE-SIZE BOOLE-CLR *MODULES* REVAPPEND COPY-TREE CHAR-NAME
;; BOOLE-IOR CHAR-CODE ETYPECASE READ-CHAR NTH-VALUE CONJUGATE
;; CTYPECASE RASSOC-IF IGNORABLE OTHERWISE CODE-CHAR MAKE-LIST
;; MEMBER-IF PATHNAMEP BOOLE-EQV COPY-LIST EVAL-WHEN BOOLE-NOR
;; BASE-CHAR CHARACTER CONDITION RATIONALP BOOLE-XOR USE-VALUE
;; *PACKAGE* REMOVE-IF NSUBST-IF BOOLE-SET NAME-CHAR DELETE-IF
;; READTABLE FINALIZE STEP-OUT C-STRING FUNCTION UNSIGNED TRUENAME
;; IDENTITY BIT-NAND IMAGPART NREVERSE KEYWORDP MISMATCH ASSOC-IF
;; TYPECASE CLASS-OF NBUTLAST PROCLAIM FUNCTION DEFCLASS CHAR-INT
;; SUBTYPEP SEQUENCE NOTEVERY BOOLE-C1 STRING<= INTEGERP LOGANDC1
;; MAP-INTO LDB-TEST COPY-SEQ MACROLET BIT-ORC2 BIT-ORC1 POSITION
;; REALPART UNINTERN PATHNAME RATIONAL PACKAGEP OPTIMIZE LOGCOUNT
;; STRING>= DEFMACRO TRUNCATE VARIABLE STRING/= UNEXPORT LOGANDC2
;; Y-OR-N-P STANDARD BOOLE-C2 COUNT-IF SUBST-IF FCEILING DESCRIBE
;; CONTINUE COMPLEXP PROFILE TIMEOUT INTEGER BOOLEAN DECLAIM DEFTYPE
;; STRING= NSUBLIS LOGTEST PROVIDE BIT-XOR STREAMP LOGORC2 BUTLAST
;; BIT-EQV STRING< BIT-IOR BIT-NOR WARNING UNTRACE SPECIAL SUBSETP
;; LOGORC1 BIT-AND LOGNAND ROTATEF REMHASH MAPLIST FBOUNDP CLRHASH
;; PACKAGE STRINGP PUSHNEW REMPROP LOGBITP PAIRLIS KEYWORD FUNCALL
;; TAGBODY BOOLE-2 CEILING COMPLEX REQUIRE STRING> INSPECT BOOLE-1
;; NUMBERP GETHASH COMPILE VECTORP REPLACE MAPHASH SEVENTH DECLARE
;; REVERSE INTEGER NRECONC FIND-IF LOCALLY GENTEMP BOOLEAN DRIBBLE
;; BIT-NOT SYMBOLP DOTIMES APROPOS RESTART DEFSETF TYPE-OF REPORT
;; GLOBAL PURIFY SIGNED STRUCT DOUBLE VALUES RASSOC FROUND MINUSP
;; EQUALP VECTOR LABELS TERPRI CHAR<= FOURTH RPLACD SIGNUM CAADDR
;; SUBSEQ CADAAR FORMAT BIGNUM FLOATP EIGHTH GENSYM VALUES INTERN
;; APPEND UNLESS REDUCE ASSERT ADJOIN INLINE DOLIST SUBLIS LISTEN
;; DELETE FIXNUM NUNION SHIFTF CDADAR CDAAAR LOGAND LOGNOT IGNORE
;; PPRINT BOUNDP LOGXOR CDDDAR CDDAAR CAAAAR LAMBDA CADDAR SHADOW
;; LENGTH MEMBER DEFVAR CADADR SECOND MAPCAN NTHCDR &WHOLE STREAM
;; STRING CADDDR RPLACA COERCE SXHASH SYMBOL NOTANY MAPCON CDDADR
;; IMPORT MAPCAR CDAADR SIGNAL RANDOM LOGNOR NSUBST CERROR CDADDR
;; CHAR>= REMOVE EXPORT SEARCH NUMBER RETURN LOGIOR SAFETY CHAR/=
;; LOGEQV METHOD CDDDDR ARRAYP CAAADR CAADAR FFLOOR RESET TIMER FLOAT
;; ARRAY DEREF ALIEN UNION SHORT PSETQ QUOTE DEFUN &REST ROUND FLOAT
;; PROGN APPLY TENTH EVERY PSETF PROG* ABORT CDDAR CATCH CDADR ECASE
;; BREAK PHASE ARRAY SLEEP CADAR BLOCK CDAAR COUNT ERROR ASSOC TYPEP
;; ACOSH ACONS CDDDR NCONC ATANH FTYPE SPACE FIRST SIXTH THIRD RATIO
;; LDIFF PRIN1 DEBUG CAADR SUBST &BODY PRINT EQUAL PROG1 WRITE EVENP
;; CAAAR PROG2 ASINH TRACE PLUSP REALP UNION SCHAR CONSP CLOSE SPEED
;; CLASS CCASE CADDR LIST* CHAR< SVREF ISQRT ZEROP LISTP BOOLE FLOOR
;; PRINC MERGE CHAR> FIFTH TAILP NINTH PROGV CHAR= THROW QUIT SLOT
;; CHAR CAST ADDR VOID ENUM LONG REAL MAPL LET* CDDR ATAN CONS PROG
;; REST TIME GETF REMF LOAD SORT CADR CDAR WHEN TYPE CHAR ACOS LOOP
;; COND LAST FLET NULL ASIN FILL WARN PUSH INCF OPEN TANH ATOM CAAR
;; BYTE ENDP AREF &KEY SOME SQRT FIND ROOM &AUX MAPC LIST SINH EXPT
;; DECF SBIT SETQ EVAL READ STEP ODDP SETF CASE COSH SYMS ARG VAR INT
;; SIN REM AND BIT CAR MAP NIL +++ NOT MIN COS EXP SET GET DPB NTH
;; MAX GCD LET LOG DO* ABS ASH THE CDR *** POP MOD LCM /// EQL ELT
;; TAN CIS LDB GC 1- >= ++ OR ** GO // <= DO EQ ED 1+ PI IF /= * > +
;; T * = < - / X Y S)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment