Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;COMPARISON OF SS:<CLISP.UPSALA>CBOOT.CLISP.1 AND PS:<VICTOR.CLISP>CBOOT.CLISP.8
;OPTIONS ARE    /3

**** FILE SS:<CLISP.UPSALA>CBOOT.CLISP.1, 1-1 (0)
(load "lclc.clisp")
(setq *package* *lisp-package*)
(load "macromemo.lap")
(load "backq.lap")
(backq-init)
(load "defmacro.lap")
(load "macros.lap")
(load "list.lap")
(load "dec20init.lap")
(load "char.lap")
(load "array.lap")
(load "keyword.lap")
(load "string.lap")
(load "pred.lap")
(load "subtypep.lap")
(subtypep-init)
(load "defstruct.lap")
(load "eval.lap")
(load "seq.lap")
(load "arith.lap")
(load "symbol.lap")
(load "reader.lap")
(load "query.lap")
(load "rand.lap")
(load "print.lap")
(load "sort.lap")
(load "format.lap")
(format-init)
(load "hash.lap")
(load "filesys.lap")
(load "load.lap")
(load "misc.lap")
(load "pprint.lap")
(pprint-init)
(load "stream.lap")
(load "sharpm.lap")
(sharp-init t)
(load "spirrat.lap")
(load "trace.lap")
(load "step.lap")
(load "package.lap")
(load "errorm.lap")
(load "error.lap")
(error-init)
(load "provide.lap")
**** FILE PS:<VICTOR.CLISP>CBOOT.CLISP.8, 1-1 (0)
(load "lclc.clisp" :verbose t)
(setq *package* *lisp-package*)
(load "macromemo.lap" :verbose t)
(load "backq.lap" :verbose t)
(backq-init)
(load "defmacro.lap" :verbose t)
(load "macros.lap" :verbose t)
(load "list.lap" :verbose t)
(load "dec20init.lap" :verbose t)
(load "char.lap" :verbose t)
(load "array.lap" :verbose t)
(load "keyword.lap" :verbose t)
(load "string.lap" :verbose t)
(load "pred.lap" :verbose t)
(load "subtypep.lap" :verbose t)
(subtypep-init)
(load "defstruct.lap" :verbose t)
(load "eval.lap" :verbose t)
(load "seq.lap" :verbose t)
(load "arith.lap" :verbose t)
(load "symbol.lap" :verbose t)
(load "reader.lap" :verbose t)
(load "query.lap" :verbose t)
(load "rand.lap" :verbose t)
(load "print.lap" :verbose t)
(load "sort.lap" :verbose t)
(load "format.lap" :verbose t)
(format-init)
(load "hash.lap" :verbose t)
(load "filesys.lap" :verbose t)
(load "load.lap" :verbose t)
(load "misc.lap" :verbose t)
(load "pprint.lap" :verbose t)
(pprint-init)
(load "stream.lap" :verbose t)
(load "sharpm.lap" :verbose t)
(sharp-init t)
(load "spirrat.lap" :verbose t)
(load "trace.lap" :verbose t)
(load "step.lap" :verbose t)
(load "package.lap" :verbose t)
(load "errorm.lap" :verbose t)
(load "error.lap" :verbose t)
(error-init)
(load "provide.lap" :verbose t)
(setq realtop (symbol-function '%top-level))
(defun %top-level nil
   (setf (symbol-function '%top-level) realtop)
   (load (make-pathname :name "clisp" :type "init"
			:defaults (user-homedir-pathname))
	 :verbose nil
	 :if-does-not-exist nil)
   (restart-lisp))
***************