1 |
|
;; -*-Lisp-*- |
2 |
(IN-PACKAGE "SYSTEM") |
(IN-PACKAGE "SYSTEM") |
3 |
(PROCLAIM '(FTYPE (FUNCTION (T T) T) OBJLT)) |
(PROCLAIM '(FTYPE (FUNCTION (T T) T) OBJLT)) |
4 |
(PROCLAIM |
(PROCLAIM |
144 |
PRINT-SYMBOL-APROPOS PROCESS-SOME-ARGS INFO-GET-FILE |
PRINT-SYMBOL-APROPOS PROCESS-SOME-ARGS INFO-GET-FILE |
145 |
SETUP-INFO CLASSP CLASS-OF CLASS-PRECEDENCE-LIST |
SETUP-INFO CLASSP CLASS-OF CLASS-PRECEDENCE-LIST |
146 |
BEST-ARRAY-ELEMENT-TYPE SIMPLE-ARRAY-P BYTE-POSITION |
BEST-ARRAY-ELEMENT-TYPE SIMPLE-ARRAY-P BYTE-POSITION |
147 |
BYTE-SIZE IHS-VISIBLE NORMALIZE-TYPE |
BYTE-SIZE IHS-VISIBLE |
148 |
SIGNUM SLOOP::AVERAGING-SLOOP-MACRO KNOWN-TYPE-P SINH |
SIGNUM SLOOP::AVERAGING-SLOOP-MACRO KNOWN-TYPE-P SINH |
149 |
SHOW-ENVIRONMENT CIS NODE-OFFSET PRINT-IHS |
SHOW-ENVIRONMENT CIS NODE-OFFSET PRINT-IHS |
150 |
SLOOP::REPEAT-SLOOP-MACRO INFO-NODE-FROM-POSITION |
SLOOP::REPEAT-SLOOP-MACRO INFO-NODE-FROM-POSITION |
157 |
SHOW-INFO)) |
SHOW-INFO)) |
158 |
(PROCLAIM '(FTYPE (FUNCTION (STRING *) *) GET-COMMAND-ARG)) |
(PROCLAIM '(FTYPE (FUNCTION (STRING *) *) GET-COMMAND-ARG)) |
159 |
(PROCLAIM |
(PROCLAIM |
160 |
'(FTYPE (FUNCTION (T *) T) FIND-CLASS CONCATENATE LIST-MATCHES FILE-SEARCH |
'(FTYPE (FUNCTION (T *) T) NORMALIZE-TYPE FIND-CLASS CONCATENATE LIST-MATCHES FILE-SEARCH |
161 |
WARN DELETE-DUPLICATES NTH-STACK-FRAME |
WARN DELETE-DUPLICATES NTH-STACK-FRAME |
162 |
UPGRADED-ARRAY-ELEMENT-TYPE SLOOP::LOOP-ADD-TEMPS |
UPGRADED-ARRAY-ELEMENT-TYPE SLOOP::LOOP-ADD-TEMPS |
163 |
SLOOP::ADD-FROM-DATA MAKE-ARRAY BIT APROPOS-LIST |
SLOOP::ADD-FROM-DATA MAKE-ARRAY BIT APROPOS-LIST |