(in-package 'si) ;;; Autoloaders. ;;; DEFAUTOLOAD definitions. for lsp directory files normally loaded. (if (fboundp 'abs) (push :numlib *features*)) ;;hack to avoid interning all the :symbols if the files are loaded.. #-numlib (progn (autoload 'abs '|numlib|) (autoload 'acos '|numlib|) (autoload 'acosh '|numlib|) (autoload 'adjust-array '|arraylib|) (autoload 'apropos '|packlib|) (autoload 'apropos-list '|packlib|) (autoload 'array-dimensions '|arraylib|) (autoload 'array-in-bounds-p '|arraylib|) (autoload 'array-row-major-index '|arraylib|) (autoload 'asin '|numlib|) (autoload 'asinh '|numlib|) (autoload 'atanh '|numlib|) (autoload 'best-array-element-type '|arraylib|) (autoload 'bit '|arraylib|) (autoload 'bit-and '|arraylib|) (autoload 'bit-andc1 '|arraylib|) (autoload 'bit-andc2 '|arraylib|) (autoload 'bit-eqv '|arraylib|) (autoload 'bit-ior '|arraylib|) (autoload 'bit-nand '|arraylib|) (autoload 'bit-nor '|arraylib|) (autoload 'bit-not '|arraylib|) (autoload 'bit-orc1 '|arraylib|) (autoload 'bit-orc2 '|arraylib|) (autoload 'bit-xor '|arraylib|) (autoload 'byte '|numlib|) (autoload 'byte-position '|numlib|) (autoload 'byte-size '|numlib|) (autoload 'cis '|numlib|) (autoload 'coerce '|predlib|) (autoload 'compile-file '|loadcmp|) (autoload 'compile '|loadcmp|) (autoload 'disassemble '|loadcmp|) (autoload 'concatenate '|seq|) (autoload 'cosh '|numlib|) (autoload 'count '|seqlib|) (autoload 'count-if '|seqlib|) (autoload 'count-if-not '|seqlib|) (autoload 'decode-universal-time '|mislib|) (autoload 'delete '|seqlib|) (autoload 'delete-duplicates '|seqlib|) (autoload 'delete-if '|seqlib|) (autoload 'delete-if-not '|seqlib|) (autoload 'deposit-field '|numlib|) (autoload 'describe '|describe|) (autoload 'dpb '|numlib|) (autoload 'dribble '|iolib|) (autoload 'encode-universal-time '|mislib|) (autoload 'every '|seq|) (autoload 'fceiling '|numlib|) (autoload 'ffloor '|numlib|) (autoload 'fill '|seqlib|) (autoload 'find '|seqlib|) (autoload 'find-all-symbols '|packlib|) (autoload 'find-if '|seqlib|) (autoload 'find-if-not '|seqlib|) (autoload 'fround '|numlib|) (autoload 'ftruncate '|numlib|) #-unix (autoload 'get-decoded-time '|mislib|) #+aosvs (autoload 'get-universal-time '|mislib|) (autoload 'get-setf-method '|setf|) (autoload 'get-setf-method-multiple-value '|setf|) (autoload 'inspect '|describe|) (autoload 'intersection '|listlib|) (autoload 'isqrt '|numlib|) (autoload 'ldb '|numlib|) (autoload 'ldb-test '|numlib|) (autoload 'logandc1 '|numlib|) (autoload 'logandc2 '|numlib|) (autoload 'lognand '|numlib|) (autoload 'lognor '|numlib|) (autoload 'lognot '|numlib|) (autoload 'logorc1 '|numlib|) (autoload 'logorc2 '|numlib|) (autoload 'logtest '|numlib|) (autoload 'make-array '|arraylib|) (autoload 'make-sequence '|seq|) (autoload 'map '|seq|) (autoload 'mask-field '|numlib|) (autoload 'merge '|seqlib|) (autoload 'mismatch '|seqlib|) (autoload 'nintersection '|listlib|) (autoload 'notany '|seq|) (autoload 'notevery '|seq|) (autoload 'si::normalize-type ':predlib) (autoload 'nset-difference '|listlib|) (autoload 'nset-exclusive-or '|listlib|) (autoload 'nsubstitute '|seqlib|) (autoload 'nsubstitute-if '|seqlib|) (autoload 'nsubstitute-if-not '|seqlib|) (autoload 'nunion '|listlib|) (autoload 'phase '|numlib|) (autoload 'position '|seqlib|) (autoload 'position-if '|seqlib|) (autoload 'position-if-not '|seqlib|) (autoload 'prin1-to-string '|iolib|) (autoload 'princ-to-string '|iolib|) (autoload 'rational '|numlib|) (autoload 'rationalize '|numlib|) (autoload 'read-from-string '|iolib|) (autoload 'reduce '|seqlib|) (autoload 'remove '|seqlib|) (autoload 'remove-duplicates '|seqlib|) (autoload 'remove-if '|seqlib|) (autoload 'remove-if-not '|seqlib|) (autoload 'replace '|seqlib|) (autoload 'sbit '|arraylib|) (autoload 'search '|seqlib|) (autoload 'set-difference '|listlib|) (autoload 'set-exclusive-or '|listlib|) (autoload 'signum '|numlib|) (autoload 'sinh '|numlib|) (autoload 'some '|seq|) (autoload 'sort '|seqlib|) (autoload 'stable-sort '|seqlib|) (autoload 'subsetp '|listlib|) (autoload 'substitute '|seqlib|) (autoload 'substitute-if '|seqlib|) (autoload 'substitute-if-not '|seqlib|) (autoload 'subtypep '|predlib|) (autoload 'tanh '|numlib|) (autoload 'typep '|predlib|) (autoload 'union '|listlib|) (autoload 'vector '|arraylib|) (autoload 'vector-pop '|arraylib|) (autoload 'vector-push '|arraylib|) (autoload 'vector-extend '|arraylib|) (autoload 'write-to-string '|iolib|) (autoload 'y-or-n-p '|iolib|) (autoload 'yes-or-no-p '|iolib|) (set-dispatch-macro-character #\# #\a 'si::sharp-a-reader) (set-dispatch-macro-character #\# #\A 'si::sharp-a-reader) (autoload 'si::sharp-a-reader '"iolib") (set-dispatch-macro-character #\# #\s 'si::sharp-s-reader) (set-dispatch-macro-character #\# #\S 'si::sharp-s-reader) (autoload 'si::sharp-s-reader '|iolib|) ;;; DEFAUTOLOADMACRO definitions. (autoload-macro 'assert '|assert|) (autoload-macro 'ccase '|assert|) (autoload-macro 'check-type '|assert|) (autoload-macro 'ctypecase '|assert|) (autoload-macro 'decf '|setf|) (autoload-macro 'define-modify-macro '|setf|) (autoload-macro 'define-setf-method '|setf|) (autoload-macro 'defsetf '|setf|) (autoload-macro 'defstruct '|defstruct|) (autoload-macro 'si::define-structure '|defstruct|) (autoload-macro 'deftype '|predlib|) (autoload-macro 'do-all-symbols '|packlib|) (autoload-macro 'do-external-symbols '|packlib|) (autoload-macro 'do-symbols '|packlib|) (autoload-macro 'ecase '|assert|) (autoload-macro 'etypecase '|assert|) (autoload-macro 'incf '|setf|) (autoload-macro 'pop '|setf|) (autoload-macro 'push '|setf|) (autoload-macro 'pushnew '|setf|) (autoload-macro 'remf '|setf|) (autoload-macro 'rotatef '|setf|) (autoload-macro 'setf '|setf|) (autoload-macro 'shiftf '|setf|) (autoload-macro 'step '|trace|) (autoload-macro 'time '|mislib|) (autoload-macro 'trace '|trace|) (autoload-macro 'typecase '|assert|) (autoload-macro 'untrace '|trace|) (autoload-macro 'with-input-from-string '|iolib|) (autoload-macro 'with-open-file '|iolib|) (autoload-macro 'with-open-stream '|iolib|) (autoload-macro 'with-output-to-string '|iolib|) ) ;;end autoloads of normally loaded files.j (if (find-package "COMPILER") (push :compiler *features*)) #+compiler (autoload 'compiler::emit-fn '|../cmpnew/collectfn|) (autoload 'compiler::init-fn '|../cmpnew/collectfn|) (autoload 'si::monstartup '"gprof") (autoload 'si::set-up-profile '"profile") (AUTOLOAD 'IDESCRIBE '|info|) (AUTOLOAD 'INFO '|info|) (AUTOLOAD 'LIST-MATCHES '|info|) (AUTOLOAD 'get-match '|info|) (AUTOLOAD 'print-node '|tinfo|) (AUTOLOAD 'offer-choices '|tinfo|) (AUTOLOAD 'tkconnect '|tkl|) ;; the sun has a broken ypbind business, if one wants to save. ;; So to stop users from invoking this #+sun (defun user-homedir-pathname () (let* ((tem (si::getenv "HOME")) (l (- (length tem) 1))) (cond ((null tem) nil) (t (or (and (>= l 0) (eql (aref tem l) #\/)) (setq tem (concatenate 'string tem "/"))) (pathname tem)))))