わだばLisperになる

KMRCLを眺める(165) CL-FUNCTIONS

Common Lisp, KMRCL | 14:49 |

今回は、KMRCLのsymbols.lispからCL-FUNCTIONSです。

前回は、変数のシンボル一覧でしたが、今回は、関数のシンボル一覧のようです。

定義は、

(defun cl-functions ()
  (let ((funcs '()))
    (do-symbols (s 'common-lisp)
      (multiple-value-bind (sym status)
        (find-symbol (symbol-name s) 'common-lisp)
        (when (and (or (eq status :external)
                       (eq status :internal))
                   (fboundp sym))
          (push sym funcs))))
    (nreverse funcs)))

となっていて動作は、

(KL::CL-FUNCTIONS)
;⇒
(DOCUMENTATION PEEK-CHAR UNLESS ENSURE-DIRECTORIES-EXIST 
 FORMAT NSET-DIFFERENCE
 CADADR LABELS TYPE-ERROR-DATUM KEYWORDP FILE-STRING-LENGTH
 LOAD-LOGICAL-PATHNAME-TRANSLATIONS COUNT-IF-NOT ENDP AND LOGORC2
 ADJUSTABLE-ARRAY-P CIS SUBSTITUTE-IF-NOT SYMBOL-PACKAGE
 GET-MACRO-CHARACTER SUBSTITUTE FUNCALL FIND-RESTART REMOVE WRITE
 ECASE CHAR-NOT-GREATERP DEFINE-COMPILER-MACRO FILE-NAMESTRING
 PPRINT-INDENT FILE-ERROR-PATHNAME NULL REMOVE-METHOD ARRAYP
 DESTRUCTURING-BIND COMPILE LOAD STREAM-ERROR-STREAM LOOP
 LISP-IMPLEMENTATION-TYPE FLOAT-DIGITS SET NTH-VALUE
 COMPILER-MACRO-FUNCTION RESTART-CASE CADDDR PPRINT FMAKUNBOUND
 BYTE-SIZE CODE-CHAR WHEN MACHINE-INSTANCE PROG* LIST
 HASH-TABLE-REHASH-THRESHOLD CAADR PATHNAME-NAME TRUNCATE STRING>
 SYMBOL-FUNCTION RASSOC-IF-NOT CHAR ATOM LIST-ALL-PACKAGES LCM 1+
 PACKAGE-USED-BY-LIST FLOAT-SIGN QUOTE CHAR/= LIST* NINTH CDADDR
 CEILING GET READ ECHO-STREAM-OUTPUT-STREAM DEFVAR
 INTEGER-DECODE-FLOAT VECTOR-PUSH-EXTEND PACKAGE-ERROR-PACKAGE
 EQUAL BIT-ANDC2 SOFTWARE-VERSION SLOT-VALUE COPY-READTABLE PROG2
 OR REALP LDB-TEST NSUBSTITUTE NAMESTRING DEFSETF ALPHANUMERICP
 DECF FILE-AUTHOR INTEGERP MAKE-INSTANCES-OBSOLETE
 INVOKE-DEBUGGER SHORT-SITE-NAME FIND-IF COMPILE-FILE-PATHNAME
 LONG-SITE-NAME MAKE-CONDITION REPLACE GETHASH SXHASH REST
 FTRUNCATE PPRINT-TABULAR TENTH STRING-DOWNCASE PPRINT-TAB
 BIT-ORC1 NOTEVERY OUTPUT-STREAM-P SUBST ED FLOOR COPY-SYMBOL
 ASSERT METHOD-COMBINATION-ERROR STRING-LEFT-TRIM USE-VALUE
 MAKE-DISPATCH-MACRO-CHARACTER PROBE-FILE + CDADAR REQUIRE
 COUNT-IF READTABLEP SUBLIS DO-EXTERNAL-SYMBOLS STRING>=
 PRINT-NOT-READABLE-OBJECT CDAR POSITION-IF
 UPDATE-INSTANCE-FOR-DIFFERENT-CLASS LOAD-TIME-VALUE YES-OR-NO-P
 CAR BROADCAST-STREAM-STREAMS PRINT-UNREADABLE-OBJECT ROOM
 CHAR-LESSP DIRECTORY HANDLER-BIND NOT BIT-ORC2 COMPLEX IMPORT
 TIME FDEFINITION < MEMBER-IF-NOT COMPILE-FILE FLET
 SET-EXCLUSIVE-OR REMF * SCALE-FLOAT CAAR MAPCON MAKE-PATHNAME
 UNUSE-PACKAGE COPY-PPRINT-DISPATCH STRING-NOT-EQUAL ATANH
 LOGICAL-PATHNAME-TRANSLATIONS READ-PRESERVING-WHITESPACE CADAAR
 MAKE-ECHO-STREAM SOME PATHNAME-DIRECTORY PSETF
 WITH-COMPILATION-UNIT DIGIT-CHAR LDIFF ARITHMETIC-ERROR-OPERANDS
 APPEND LISTP INTERSECTION MAKE-STRING REINITIALIZE-INSTANCE
 CAADDR ISQRT FRESH-LINE SET-PPRINT-DISPATCH PATHNAME-MATCH-P
 NSTRING-UPCASE PPRINT-FILL SLOT-MISSING CDDADR FILE-WRITE-DATE
 CLRHASH WITH-OPEN-STREAM ASINH FUNCTION-KEYWORDS MEMBER DEFUN
 MAKUNBOUND COPY-TREE SVREF LOGTEST RATIONALP CONJUGATE
 RESTART-NAME ECHO-STREAM-INPUT-STREAM PPRINT-LINEAR
 GET-UNIVERSAL-TIME WRITE-SEQUENCE CONTINUE FIND-IF-NOT
 WITH-OPEN-FILE ARRAY-IN-BOUNDS-P GENTEMP SIMPLE-STRING-P
 ROW-MAJOR-AREF CDAADR HASH-TABLE-REHASH-SIZE
 USER-HOMEDIR-PATHNAME APPLY PATHNAME-TYPE WITH-OUTPUT-TO-STRING
 ARRAY-DIMENSION CONCATENATED-STREAM-STREAMS HASH-TABLE-P
 MULTIPLE-VALUE-LIST FILE-POSITION EQ DEFCONSTANT NSUBSTITUTE-IF
 MAKE-SEQUENCE PPRINT-LOGICAL-BLOCK COUNT DEFINE-CONDITION
 MAKE-SYMBOL BIT ARRAY-ELEMENT-TYPE GET-DECODED-TIME MAX LOGNAND
 GO SUBSETP ARRAY-RANK LOWER-CASE-P RASSOC READ-FROM-STRING
 MEMBER-IF INCF WITH-SLOTS VALUES EVENP CDDDDR
 ENCODE-UNIVERSAL-TIME DELETE-PACKAGE NOTANY CHARACTER NUMBERP
 LOGNOT NTH ETYPECASE PACKAGE-NAME DEFMACRO RANDOM-STATE-P
 DENOMINATOR SUBST-IF MUFFLE-WARNING ALLOCATE-INSTANCE
 CHAR-DOWNCASE TAGBODY PRINC-TO-STRING REVERSE LET SIGNAL
 LIST-LENGTH BLOCK POSITION-IF-NOT GET-PROPERTIES
 UPGRADED-ARRAY-ELEMENT-TYPE DELETE-FILE SINH CCASE
 TRANSLATE-PATHNAME CHAR-EQUAL IMAGPART TAN DELETE-IF-NOT
 SHARED-INITIALIZE ASSOC CTYPECASE WITH-CONDITION-RESTARTS ACOSH
 WITH-PACKAGE-ITERATOR EVAL-WHEN ARRAY-HAS-FILL-POINTER-P
 FUNCTION-LAMBDA-EXPRESSION SLOT-EXISTS-P
 DEFINE-METHOD-COMBINATION CDAAAR READ-CHAR-NO-HANG
 SIMPLE-CONDITION-FORMAT-CONTROL STRING< REDUCE WITH-ACCESSORS
 DIGIT-CHAR-P RATIONAL WRITE-STRING FLOAT-PRECISION
 LISP-IMPLEMENTATION-VERSION LOGANDC2 NUNION
 GET-DISPATCH-MACRO-CHARACTER SETQ NREVERSE ASH
 COMPILED-FUNCTION-P DO* THE COMPLEXP DO-SYMBOLS
 MAKE-CONCATENATED-STREAM GETF >= CONCATENATE IGNORE-ERRORS
 COERCE RATIONALIZE ACONS READ-DELIMITED-LIST WARN
 DELETE-DUPLICATES 1- PPRINT-NEWLINE FLOAT-RADIX
 MAKE-LOAD-FORM-SAVING-SLOTS STRING-NOT-GREATERP CHAR-NOT-EQUAL
 SHADOW ASSOC-IF PRIN1 PRINC ELT ABORT ODDP ASIN / SEARCH SIGNUM
 MAP-INTO FIND-PACKAGE PPRINT-EXIT-IF-LIST-EXHAUSTED REMHASH
 CADAR CHAR-NAME TERPRI WRITE-CHAR EQL CDDR ZEROP MAKE-HASH-TABLE
 MULTIPLE-VALUE-BIND MACROLET PROVIDE MAKE-STRING-OUTPUT-STREAM
 CATCH BIT-XOR LOOP-FINISH > DECODE-FLOAT COPY-LIST
 NSET-EXCLUSIVE-OR PROG STREAM-EXTERNAL-FORMAT POSITION FLOAT
 DEFPARAMETER LOGICAL-PATHNAME CAAAR CHAR-UPCASE NAME-CHAR
 MAKE-LOAD-FORM UNTRACE MAKE-INSTANCE ARRAY-DISPLACEMENT
 SYNONYM-STREAM-SYMBOL WITH-HASH-TABLE-ITERATOR BIT-EQV
 CHARACTERP CLASS-OF BIT-AND TRACE REM MAPCAR CHAR<=
 GET-SETF-EXPANSION STRING<= LOG PPRINT-DISPATCH LOGEQV UNEXPORT
 COMPUTE-APPLICABLE-METHODS WRITE-BYTE DECLAIM FINISH-OUTPUT
 CHAR-NOT-LESSP FUNCTION PACKAGE-SHADOWING-SYMBOLS CLEAR-INPUT
 BIT-IOR ERROR SIMPLE-BIT-VECTOR-P UNWIND-PROTECT DESCRIBE-OBJECT
 READ-SEQUENCE LOGANDC1 MACHINE-VERSION RETURN-FROM EQUALP COS
 MOD BOTH-CASE-P MAKE-BROADCAST-STREAM PUSHNEW PATHNAME
 TREE-EQUAL LDB SOFTWARE-TYPE TAILP CADDR READ-CHAR MISMATCH POP
 STRING-NOT-LESSP NSTRING-DOWNCASE VALUES-LIST CAAADR FIND-CLASS
 RASSOC-IF DIRECTORY-NAMESTRING CLOSE MERGE-PATHNAMES SORT
 NSUBLIS CONSP FIND-SYMBOL NBUTLAST EXP SCHAR CDR DESCRIBE TANH
 UPDATE-INSTANCE-FOR-REDEFINED-CLASS SQRT SHADOWING-IMPORT CERROR
 ENOUGH-NAMESTRING MAPLIST DEFSTRUCT DEFGENERIC READTABLE-CASE
 IN-PACKAGE BOOLE WRITE-TO-STRING GENSYM IDENTITY ROTATEF
 SPECIAL-OPERATOR-P SIN NTHCDR STRING-TRIM EXPT SECOND DPB
 STRING= STRING PRINT-OBJECT Y-OR-N-P NO-NEXT-METHOD DOTIMES
 COMPUTE-RESTARTS SET-DIFFERENCE LOGCOUNT NO-APPLICABLE-METHOD
 CHAR>= CDDAAR MAPL LOGAND MINUSP RENAME-FILE PATHNAMEP
 SET-SYNTAX-FROM-CHAR DELETE-IF TRUENAME MERGE LOGORC1
 MULTIPLE-VALUE-SETQ LET* BIT-NOR LOCALLY SYMBOL-MACROLET NRECONC
 INTERN IF COSH DEFMETHOD STRING-GREATERP INPUT-STREAM-P
 PATHNAME-VERSION BREAK WILD-PATHNAME-P NCONC FFLOOR REMPROP
 CDADR UNION INSPECT MACROEXPAND-1 INTEGER-LENGTH SLEEP
 VECTOR-PUSH LOGNOR CHAR> DEFINE-SYMBOL-MACRO PUSH OPEN-STREAM-P
 PROG1 RETURN UPGRADED-COMPLEX-PART-TYPE
 TWO-WAY-STREAM-INPUT-STREAM - ATAN SHIFTF LAMBDA
 SET-MACRO-CHARACTER PATHNAME-HOST MAPHASH CHAR-INT NSUBST-IF
 DEFINE-SETF-EXPANDER WRITE-LINE SETF MAPC RPLACA FILL
 MULTIPLE-VALUE-CALL TYPE-OF CDDDAR DRIBBLE CHANGE-CLASS CHAR<
 ROUND PAIRLIS THROW MACROEXPAND SIMPLE-VECTOR-P CONSTANTLY PHASE
 WITH-INPUT-FROM-STRING APROPOS SLOT-BOUNDP CLEAR-OUTPUT TYPEP
 BIT-NOT MULTIPLE-VALUE-PROG1 STEP ENSURE-GENERIC-FUNCTION
 STREAMP FOURTH SYMBOLP SET-DISPATCH-MACRO-CHARACTER STRING-LESSP
 VECTOR NSUBST SYMBOL-NAME BOUNDP FUNCTIONP CASE FLOATP
 REMOVE-DUPLICATES MAKE-STRING-INPUT-STREAM MACHINE-TYPE MIN
 SUBSEQ STRINGP ADJOIN TRANSLATE-LOGICAL-PATHNAME PSETQ
 PPRINT-POP STRING-RIGHT-TRIM FIND-ALL-SYMBOLS
 GET-OUTPUT-STREAM-STRING CAAAAR BYTE HASH-TABLE-TEST
 SUBST-IF-NOT INVOKE-RESTART-INTERACTIVELY DO PACKAGE-USE-LIST
 UPPER-CASE-P STABLE-SORT HOST-NAMESTRING STANDARD-CHAR-P
 DO-ALL-SYMBOLS EIGHTH OPEN READ-BYTE HANDLER-CASE FORMATTER
 PACKAGE-NICKNAMES ARITHMETIC-ERROR-OPERATION REMOVE-IF
 BYTE-POSITION COPY-SEQ RESTART-BIND GET-INTERNAL-RUN-TIME THIRD
 CAADAR NSUBSTITUTE-IF-NOT PROCLAIM MAPCAN MAKE-SYNONYM-STREAM
 VECTORP LOGXOR = UNBOUND-SLOT-INSTANCE PRINT NINTERSECTION
 SIMPLE-CONDITION-FORMAT-ARGUMENTS GCD DEFINE-MODIFY-MACRO
 FCEILING TYPECASE CALL-METHOD FORCE-OUTPUT CADR ARRAY-TOTAL-SIZE
 UNREAD-CHAR PATHNAME-DEVICE STRING/= REMOVE-IF-NOT EXPORT
 SLOT-MAKUNBOUND <= PROGN NUMERATOR REALPART DEFCLASS CONS
 HASH-TABLE-COUNT GRAPHIC-CHAR-P PACKAGEP ALPHA-CHAR-P
 MAKE-RANDOM-STATE LISTEN STRING-UPCASE CADDAR COPY-ALIST SIXTH
 REVAPPEND SYMBOL-VALUE SEVENTH DISASSEMBLE COND SBIT
 TYPE-ERROR-EXPECTED-TYPE BIT-ANDC1 PARSE-INTEGER LOGIOR
 MAKE-ARRAY BIT-NAND INTERACTIVE-STREAM-P BIT-VECTOR-P
 SLOT-UNBOUND APROPOS-LIST FBOUNDP NSTRING-CAPITALIZE
 WITH-SIMPLE-RESTART AREF ASSOC-IF-NOT COMPLEMENT PROGV FROUND
 ARRAY-ROW-MAJOR-INDEX MAKE-TWO-WAY-STREAM STRING-EQUAL
 NSUBST-IF-NOT PLUSP EVERY STREAM-ELEMENT-TYPE CONSTANTP
 FIND-METHOD DELETE CDDAR FILE-LENGTH PARSE-NAMESTRING
 MAKE-PACKAGE READ-LINE DEPOSIT-FIELD ABS RENAME-PACKAGE
 CHECK-TYPE INVOKE-RESTART HASH-TABLE-SIZE USE-PACKAGE RANDOM
 PRIN1-TO-STRING LAST TWO-WAY-STREAM-OUTPUT-STREAM
 ARRAY-DIMENSIONS WITH-STANDARD-IO-SYNTAX MACRO-FUNCTION CHAR=
 LOGBITP UNINTERN COPY-STRUCTURE MASK-FIELD VECTOR-POP
 SYMBOL-PLIST CHAR-CODE METHOD-QUALIFIERS ADJUST-ARRAY DEFPACKAGE
 CDDDR INVALID-METHOD-ERROR CELL-ERROR-NAME CLASS-NAME RPLACD
 CHAR-GREATERP MAKE-LIST INITIALIZE-INSTANCE STRING-CAPITALIZE
 MAP STORE-VALUE ADD-METHOD ACOS FIFTH SUBTYPEP DEFTYPE BUTLAST
 LENGTH /= EVAL CDAAR DECODE-UNIVERSAL-TIME
 GET-INTERNAL-REAL-TIME FIND SUBSTITUTE-IF FIRST FILL-POINTER
 DOLIST)

■

ツイートする