diff --git a/Makefile b/Makefile index 86c7905..8503293 100644 --- a/Makefile +++ b/Makefile @@ -14,8 +14,9 @@ LSP=${SPD}/lsp #GCLVERSION=gcl-2.6.6 #GCLVERSION=gcl-2.6.7pre #GCLVERSION=gcl-2.6.7 -GCLVERSION=gcl-2.6.8pre +#GCLVERSION=gcl-2.6.8pre #GCLVERSION=gcl-2.6.8pre2 +GCLVERSION=gclcvs AWK=gawk GCLDIR=${LSP}/${GCLVERSION} SRC=${SPD}/src @@ -147,3 +148,4 @@ clean: @ for i in `find src -name "Makefile"` ; do rm -f $$i ; done @ for i in `find src -name "Makefile.dvi"` ; do rm -f $$i ; done @ rm -f lastBuildDate + diff --git a/Makefile.pamphlet b/Makefile.pamphlet index 2109665..7b4a675 100644 --- a/Makefile.pamphlet +++ b/Makefile.pamphlet @@ -748,8 +748,9 @@ forget to erase the lsp/Makefile the wrong patches will be applied. #GCLVERSION=gcl-2.6.6 #GCLVERSION=gcl-2.6.7pre #GCLVERSION=gcl-2.6.7 -GCLVERSION=gcl-2.6.8pre +#GCLVERSION=gcl-2.6.8pre #GCLVERSION=gcl-2.6.8pre2 +GCLVERSION=gclcvs @ \subsubsection{The [[GCLOPTS]] configure variable} diff --git a/lsp/Makefile.pamphlet b/lsp/Makefile.pamphlet index 4a2d3fb..17b8b06 100644 --- a/lsp/Makefile.pamphlet +++ b/lsp/Makefile.pamphlet @@ -1176,6 +1176,31 @@ clean: @( cd ccl ; ${ENV} ${MAKE} clean ) @ +\subsection{The gclcvs stanza} +This stanza will be written when the GCLVERSION variable is +``gclcvs''. It will overwrite the default version. See the +top level Makefile.pamphlet. + +<>= +# gcl version gclcvs +OUT=${OBJ}/${SYS}/bin +OBLIB=${OBJ}/${SYS}/lib +LINKOBJECTS= ${OBLIB}/bsdsignal.o \ + ${OBLIB}/cfuns-c.o \ + ${OBLIB}/sockio-c.o + +all: + @echo 1 building ${LSP} ${GCLVERSION} + +gcldir: + @echo 2 building ${GCLVERSION} + @echo '(let ((si::*disable-recompile* t))' \ + '(compiler::link nil "${OUT}/lisp" nil "${LINKOBJECTS}"))' | gcl + @echo 13 finished system build on `date` | tee >gcldir + +clean: + +@ \section{Gnu Common Lisp 2.5} GCL 2.5 requires a different Makefile. In particular, GCL 2.5 has a different method of building the lisp image. And, just to diff --git a/src/algebra/Makefile.pamphlet b/src/algebra/Makefile.pamphlet index 987ea71..e0d2f54 100644 --- a/src/algebra/Makefile.pamphlet +++ b/src/algebra/Makefile.pamphlet @@ -692,7 +692,7 @@ plot.spad.pamphlet (PLOT PLOT1) <>= LAYER15=\ - ${OUT}/DIAGG.o ${OUT}/DIAGG-.o ${OUT}/DSMP.o ${OUT}/EXPUPXS.o \ + ${OUT}/DIAGG.o ${OUT}/DIAGG-.o ${OUT}/DSMP.o \ ${OUT}/FRAMALG.o ${OUT}/FRAMALG-.o ${OUT}/MDAGG.o ${OUT}/ODPOL.o \ ${OUT}/PLOT.o ${OUT}/RMCAT2.o ${OUT}/ROIRC.o ${OUT}/SDPOL.o \ ${OUT}/SMATCAT.o ${OUT}/SMATCAT-.o ${OUT}/TUBETOOL.o ${OUT}/UPXSCCA.o \ @@ -1022,6 +1022,7 @@ taylor.spad.pamphlet (ITAYLOR UTS UTS2) <>= LAYER21=\ + ${OUT}/EXPUPXS.o \ ${OUT}/DEFINTEF.o ${OUT}/DFINTTLS.o ${OUT}/DEFINTRF.o ${OUT}/D01TRNS.o \ ${OUT}/EFULS.o ${OUT}/ESCONT.o ${OUT}/EXPR.o ${OUT}/EXPR2UPS.o \ ${OUT}/FDIV.o ${OUT}/FSCINT.o ${OUT}/FSINT.o ${OUT}/FS2EXPXP.o \ diff --git a/src/algebra/acplot.spad.pamphlet b/src/algebra/acplot.spad.pamphlet index f4542d7..9a79cda 100644 --- a/src/algebra/acplot.spad.pamphlet +++ b/src/algebra/acplot.spad.pamphlet @@ -1151,6 +1151,7 @@ PlaneAlgebraicCurvePlot(): PlottablePlaneCurveCategory _ x1 := xCoord p1; y1 := yCoord p1 px := ground(eval(dpdxSF,[x,y],[x1,y1])) py := ground(eval(dpdySF,[x,y],[x1,y1])) + incVar0, incVar : Symbol -- let m be the slope of the tangent line at p1 -- if |m| < 1, we will increment the x-coordinate by delta -- (indicated by 'incVar = x'), find an approximate diff --git a/src/algebra/allfact.spad.pamphlet b/src/algebra/allfact.spad.pamphlet index ccc9497..c399d2b 100644 --- a/src/algebra/allfact.spad.pamphlet +++ b/src/algebra/allfact.spad.pamphlet @@ -291,7 +291,7 @@ MPolyCatPolyFactorizer(E,OV,R,PPR) : C == T GeneralizedMultivariateFactorize(OV,E,S,R,P) : C == T where - R : IntegralDomain + R : GcdDomain -- with factor on R[x] S : IntegralDomain OV : OrderedSet with diff --git a/src/algebra/d02agents.spad.pamphlet b/src/algebra/d02agents.spad.pamphlet index d3e18ec..dd45a6c 100644 --- a/src/algebra/d02agents.spad.pamphlet +++ b/src/algebra/d02agents.spad.pamphlet @@ -281,7 +281,7 @@ d02AgentsPackage(): E == I where b := ((# e) >= r-1)@Boolean b => -- if all the eigenvalues are real, find negative ones - e := sort(neglist(e)$ExpertSystemToolsPackage1(FI)) + e : List FI := sort(neglist(e)$ExpertSystemToolsPackage1(FI)) -- if there are two or more, calculate stiffness ratio ((n:=#e)>1)@Boolean => [coerce(e.1/e.n)@F,0$F] -- otherwise stiffness not present diff --git a/src/algebra/efstruc.spad.pamphlet b/src/algebra/efstruc.spad.pamphlet index 6ac57be..6e6a2ff 100644 --- a/src/algebra/efstruc.spad.pamphlet +++ b/src/algebra/efstruc.spad.pamphlet @@ -413,7 +413,7 @@ ElementaryFunctionStructurePackage(R,F): Exports == Implementation where for i in 1..n for kk in rest ker repeat klist := first(ker, i) -- NO EVALUATION ON AN EMPTY VECTOR, WILL CAUSE INFINITE LOOP - (c := deprel(klist, kk, v)) case vec and not empty?(c.vec) => + (c : U := deprel(klist, kk, v)) case vec and not empty?(c.vec) => rec := depeval(f, klist, kk, c.vec) rn := rischNormalize(rec.func, v) return [rn.func, diff --git a/src/algebra/polycat.spad.pamphlet b/src/algebra/polycat.spad.pamphlet index 01cbbcc..b9bd252 100644 --- a/src/algebra/polycat.spad.pamphlet +++ b/src/algebra/polycat.spad.pamphlet @@ -165,7 +165,7 @@ FiniteAbelianMonoidRing(R:Ring, E:OrderedAbelianMonoid): Category == -- probably not a very good definition in most special cases zero? x => 0 ans:% :=0 - t:=leadingCoefficient x exquo r + t : Union(R, "failed") := leadingCoefficient x exquo r while not (t case "failed") and not zero? x repeat ans:=ans+monomial(t::R,degree x) x:=reductum x diff --git a/src/algebra/transsolve.spad.pamphlet b/src/algebra/transsolve.spad.pamphlet index 168619f..7c87f95 100644 --- a/src/algebra/transsolve.spad.pamphlet +++ b/src/algebra/transsolve.spad.pamphlet @@ -219,6 +219,7 @@ TransSolvePackage(R) : Exports == Implementation where radicalSolve(nlexpr, lvar)$RadicalSolvePackage(R) tryToTrans(lside: RE, x:S) : RE == + resultLside : RE if testTrig(lside,x) or testHTrig(lside,x) then convLside:=( simplify(lside) )::RE resultLside:=convLside diff --git a/src/boot/Makefile.pamphlet b/src/boot/Makefile.pamphlet index c5ebb48..fe73a76 100644 --- a/src/boot/Makefile.pamphlet +++ b/src/boot/Makefile.pamphlet @@ -1263,6 +1263,7 @@ and the problem appears to be that each [[.o]] file has [[init_code]]. Until this is fixed we need to continue to use the old scheme. <>= CMD0=(progn \ + ${PROCLAIMS} \ (mapcar (function (lambda (x) (load x))) (quote (${OBJS1}))) \ (system::save-system "${SAVESYS}")) diff --git a/src/interp/Makefile.pamphlet b/src/interp/Makefile.pamphlet index 49f9cc4..c794fef 100644 --- a/src/interp/Makefile.pamphlet +++ b/src/interp/Makefile.pamphlet @@ -396,8 +396,7 @@ into the src/interp diretory (or boot, algebra). In order for this information to be used during compiles we define <>= -PROCLAIMS=(progn (load "${OUT}/sys-pkg.lsp") \ - (load "${IN}/interp-proclaims.lisp")) +PROCLAIMS=(progn (load "${OUT}/sys-pkg.lsp")) @ @@ -864,7 +863,6 @@ ${SAVESYS}: ${DEPSYS} ${OBJS} ${OUT}/bookvol5.${O} ${OUT}/util.${O} \ @ echo OBJ= ${OBJ} @ echo MNT= ${MNT} @ echo O=${O} LISP=${LISP} BYE=${BYE} - @ cp -p ${OUT}/*.fn ${MID} @ cp -p ${SRC}/doc/msgs/s2-us.msgs ${SPAD}/doc/msgs # @ cp -p ${SRC}/doc/msgs/co-eng.msgs ${SPAD}/doc/msgs @ echo '${PROCLAIMS}' > ${OUT}/makeint.lisp @@ -898,8 +896,6 @@ ${SAVESYS}: ${DEPSYS} ${OBJS} ${OUT}/bookvol5.${O} ${OUT}/util.${O} \ @ echo '#+:akcl (setq compiler::*suppress-compiler-notes* t)' \ >> ${OUT}/makeint.lisp @ echo '#+:akcl (si::gbc-time 0)' >> ${OUT}/makeint.lisp - @ echo '#+:akcl (setq si::*system-directory* "${SPAD}/bin/")' \ - >> ${OUT}/makeint.lisp @ (cd ${OBJ}/${SYS}/bin ; \ echo '(progn (gbc t) (load "${OUT}/makeint.lisp")' \ '(gbc t) (user::spad-save "${SAVESYS}"))' | ${LISPSYS} ) @@ -8575,11 +8571,11 @@ ${MNT}/${SYS}/algebra/exposed.${O} : ${MID}/exposed.lsp ${LISPSYS} @ if [ -z "${NOISE}" ] ; then \ echo '(progn (compile-file "${MID}/exposed.lsp"' \ ':output-file "${MNT}/${SYS}/algebra/exposed.${O}") (${BYE}))' \ - | ${LISPSYS} ; \ + | ${DEPSYS} ; \ else \ echo '(progn (compile-file "${MID}/exposed.lsp"' \ ':output-file "${MNT}/${SYS}/algebra/exposed.${O}") (${BYE}))' \ - | ${LISPSYS} >${TMP}/trace ; \ + | ${DEPSYS} >${TMP}/trace ; \ fi ${OUT}/database.date: diff --git a/src/interp/bookvol5.pamphlet b/src/interp/bookvol5.pamphlet index 3c4465e..e32fec3 100644 --- a/src/interp/bookvol5.pamphlet +++ b/src/interp/bookvol5.pamphlet @@ -674,7 +674,7 @@ allow a function to be called. In our case it is the [[restart]] function which is the entry to the Axiom interpreter. <>= (defun set-restart-hook () - #+KCL (setq system::*top-level-hook* 'restart) + #+:GCL (setq system::*top-level-hook* #'restart) #+Lucid (setq boot::restart-hook 'restart) 'restart ) @@ -697,9 +697,6 @@ The [[compiler::*suppress-compiler-notes*]] flag has been set to t. We do not care that tail recursion occurs. <>= (defun restart () -#+:akcl - (init-memory-config :cons 500 :fixnum 200 :symbol 500 :package 8 - :array 400 :string 500 :cfun 100 :cpages 3000 :rpages 1000 :hole 2000) #+:akcl (setq compiler::*compile-verbose* nil) #+:akcl (setq compiler::*suppress-compiler-warnings* t) #+:akcl (setq compiler::*suppress-compiler-notes* t) @@ -736,13 +733,15 @@ We do not care that tail recursion occurs. (setq *default-pathname-defaults* "") #+:CCL (setq *default-pathname-defaults* (get-current-directory)) -#-(or :CCL (and :lucid :ibm/370)) +#-(or :GCL :CCL (and :lucid :ibm/370)) (setq *default-pathname-defaults* (probe-file "./")) #+(and :lucid :ibm/370) (setq vmlisp::$current-directory "") #-(and :lucid :ibm/370) (setq vmlisp::$current-directory (make-directory *default-pathname-defaults*)) +#+:GCL + (setq vmlisp::$current-directory *default-pathname-defaults*) (|loadExposureGroupData|) (|statisticsInitialization|) (|initHist|) @@ -1175,6 +1174,7 @@ where the [[${SYS}]] variable is the same one set at build time. (setq |$defaultMsgDatabaseName| (pathname (make-absolute-filename "/doc/msgs/s2-us.msgs"))) (setq |$msgDatabaseName| ()) + #-:GCL (setq *default-pathname-defaults* (pathname (make-absolute-filename ""))) (setq $current-directory $spadroot)) @@ -4642,6 +4642,7 @@ undo(l) == \end{verbatim} <>= (defun |undo| (l) + (declare (special |$options| |$InteractiveFrame|)) (prog (tmp1 key s undoWhen n) (return (progn @@ -5235,6 +5236,7 @@ removeUndoLines u == --called by writeInputLines \end{verbatim} <>= (defun |removeUndoLines| (u) + (declare (special |$currentLine| |$IOindex|)) (prog (xtra savedIOindex s s1 m s2 x code c n y acc) (return (seq diff --git a/src/interp/comp.lisp.pamphlet b/src/interp/comp.lisp.pamphlet index f822aad..7e8bf7e 100644 --- a/src/interp/comp.lisp.pamphlet +++ b/src/interp/comp.lisp.pamphlet @@ -374,8 +374,6 @@ (let (u) (cond ((ATOM X) NIL) ((eq (setq U (CAR X)) 'QUOTE) NIL) - ((AND (eq U 'MAKEPROP) $TRACELETFLAG (RPLAC (CAR X) 'MAKEPROP-SAY) NIL) - NIL) ; temporarily make TRACELET cause MAKEPROPs to be reported ((MEMQ U '(DCQ RELET PRELET SPADLET SETQ LET) ) (COND ((NOT (eq U 'DCQ)) diff --git a/src/interp/daase.lisp.pamphlet b/src/interp/daase.lisp.pamphlet index e0c20a7..b3ff3c4 100644 --- a/src/interp/daase.lisp.pamphlet +++ b/src/interp/daase.lisp.pamphlet @@ -815,13 +815,11 @@ database. (defun |library| (args) (declare (special |$options|)) (declare (special |$newConlist|)) - (setq original-directory (get-current-directory)) (setq |$newConlist| nil) - (localdatabase args |$options|) -#+:CCL - (dolist (a args) (check-module-exists a)) - (|extendLocalLibdb| |$newConlist|) - (system::chdir original-directory) + (let ((original-directory (get-current-directory))) + (localdatabase args |$options|) + (|extendLocalLibdb| |$newConlist|) + (system::chdir original-directory)) (tersyscommand)) ;; check-module-exists looks to see if a module exists in one of the current @@ -853,10 +851,7 @@ database. ; .asy ; .ao, then asharp to .asy -(defun localdatabase (filelist options &optional (make-database? nil)) - "read a local filename and update the hash tables" - (labels ( - (processOptions (options) +(defun processOptions (options) (let (only dir noexpose) (when (setq only (assoc '|only| options)) (setq options (lisp::delete only options :test #'equal)) @@ -865,23 +860,24 @@ database. (setq options (lisp::delete dir options :test #'equal)) (setq dir (second dir)) (when (null dir) - (|sayKeyedMsg| 'S2IU0002 nil) )) + (|sayKeyedMsg| 'S2IU0002 nil))) (when (setq noexpose (assoc '|noexpose| options)) (setq options (lisp::delete noexpose options :test #'equal)) - (setq noexpose 't) ) + (setq noexpose 't)) (when options (format t " Ignoring unknown )library option: ~a~%" options)) (values only dir noexpose))) - (processDir (dirarg thisdir) + +(defun processDir (dirarg thisdir) (let (allfiles skipasos) (system:chdir (string dirarg)) - (setq allfiles (directory "*")) + (setq allfiles (directory "*.nrlib/*")) (system:chdir thisdir) (values (mapcan #'(lambda (f) - (when (string-equal (pathname-type f) "nrlib") - (list (concatenate 'string (namestring f) "/" - vmlisp::*index-filename*)))) allfiles) + (when (string-equal (pathname-type f) "kaf") + (list f))) + allfiles) (mapcan #'(lambda (f) (when (string= (pathname-type f) "asy") (push (pathname-name f) skipasos) @@ -899,7 +895,10 @@ database. (list (namestring f)))) allfiles) #-:CCL nil - )))) + ))) + +(defun localdatabase (filelist options &optional (make-database? nil)) + "read a local filename and update the hash tables" (let (thisdir nrlibs asos asys libs object only dir key (|$forceDatabaseUpdate| t) noexpose) (declare (special |$forceDatabaseUpdate|)) @@ -910,7 +909,7 @@ database. (if make-database? (setq noexpose t)) (when dir (multiple-value-setq (nrlibs asys asos libs) (processDir dir thisdir))) (dolist (file filelist) - (let ((filename (pathname-name file)) + (let ((filename (pathname-name (symbol-name file))) (namedir (directory-namestring file))) (unless namedir (setq thisdir (concatenate 'string thisdir "/"))) (cond @@ -941,7 +940,7 @@ database. (asharp file) (setq file (|astran| (concatenate 'string (pathname-name file) ".asy"))) (localasy file object only make-database? noexpose)) - (HCLEAR |$ConstructorCache|)))) + (HCLEAR |$ConstructorCache|))) (defun localasy (asy object only make-database? noexpose) "given an alist from the asyfile and the objectfile update the database" @@ -1549,46 +1548,47 @@ Here I'll try to outline the interp database write procedure (princ " " out) (finish-output out) (dolist (constructor (|allConstructors|)) - (let (struct) - (setq struct (get constructor 'database)) - (setq opalistpos (file-position out)) - (print (squeeze (database-operationalist struct)) out) - (finish-output out) - (setq cmodemappos (file-position out)) - (print (squeeze (database-constructormodemap struct)) out) - (finish-output out) - (setq modemapspos (file-position out)) - (print (squeeze (database-modemaps struct)) out) - (finish-output out) - (if (consp (database-object struct)) ; if asharp code ... - (setq obj - (cons (pathname-name (car (database-object struct))) - (cdr (database-object struct)))) - (setq obj - (pathname-name - (first (last (pathname-directory (database-object struct))))))) - (setq concategory (squeeze (database-constructorcategory struct))) - (if concategory ; if category then write data else write nil - (progn - (setq categorypos (file-position out)) - (print concategory out) - (finish-output out)) - (setq categorypos nil)) - (setq niladic (database-niladic struct)) - (setq abbrev (database-abbreviation struct)) - (setq cosig (database-cosig struct)) - (setq kind (database-constructorkind struct)) - (setq defaultdomain (database-defaultdomain struct)) - (setq ancestors (squeeze (gethash constructor *ancestors-hash*))) ;cattable.boot - (if ancestors - (progn - (setq ancestorspos (file-position out)) - (print ancestors out) - (finish-output out)) - (setq ancestorspos nil)) - (push (list constructor opalistpos cmodemappos modemapspos - obj categorypos niladic abbrev cosig kind defaultdomain - ancestorspos) master))) + (let (struct) + (setq struct (get constructor 'database)) + (when (database-object struct) + (setq opalistpos (file-position out)) + (print (squeeze (database-operationalist struct)) out) + (finish-output out) + (setq cmodemappos (file-position out)) + (print (squeeze (database-constructormodemap struct)) out) + (finish-output out) + (setq modemapspos (file-position out)) + (print (squeeze (database-modemaps struct)) out) + (finish-output out) + (if (consp (database-object struct)) ; if asharp code ... + (setq obj + (cons (pathname-name (car (database-object struct))) + (cdr (database-object struct)))) + (setq obj + (pathname-name + (first (last (pathname-directory (database-object struct))))))) + (setq concategory (squeeze (database-constructorcategory struct))) + (if concategory ; if category then write data else write nil + (progn + (setq categorypos (file-position out)) + (print concategory out) + (finish-output out)) + (setq categorypos nil)) + (setq niladic (database-niladic struct)) + (setq abbrev (database-abbreviation struct)) + (setq cosig (database-cosig struct)) + (setq kind (database-constructorkind struct)) + (setq defaultdomain (database-defaultdomain struct)) + (setq ancestors (squeeze (gethash constructor *ancestors-hash*))) ;cattable.boot + (if ancestors + (progn + (setq ancestorspos (file-position out)) + (print ancestors out) + (finish-output out)) + (setq ancestorspos nil)) + (push (list constructor opalistpos cmodemappos modemapspos + obj categorypos niladic abbrev cosig kind defaultdomain + ancestorspos) master)))) (finish-output out) (setq masterpos (file-position out)) (print (mapcar #'squeeze master) out) diff --git a/src/interp/debug.lisp.pamphlet b/src/interp/debug.lisp.pamphlet index 9a9e613..1490eaa 100644 --- a/src/interp/debug.lisp.pamphlet +++ b/src/interp/debug.lisp.pamphlet @@ -106,7 +106,6 @@ exit (rds ifile) ; PURPOSE: Debugging hooks for Boot code (in-package "BOOT") -(use-package '("LISP" "VMLISP")) (DEFPARAMETER /COUNTLIST NIL) (DEFPARAMETER /TIMERLIST NIL) @@ -187,13 +186,13 @@ exit (rds ifile) (PROG (FT oft SFN X EDINFILE FILE DEF KEY RECNO U W SOURCEFILES ECHOMETA SINGLINEMODE XCAPE XTOKENREADER INPUTSTREAM SPADERRORSTREAM ISID NBLNK COMMENTCHR $TOKSTACK (/SOURCEFILES |$sourceFiles|) - METAKEYLST DEFINITION_NAME (|$sourceFileTypes| '(|spad| |boot| |lisp| |lsp| |meta|)) + DEFINITION_NAME (|$sourceFileTypes| '(|spad| |boot| |lisp| |lsp| |meta|)) ($FUNCTION FN) $BOOT $NEWSPAD $LINESTACK $LINENUMBER STACK STACKX BACK OK TRAPFLAG |$InteractiveMode| TOK COUNT ERRCOL COLUMN *QUERY CHR LINE (*COMP370-APPLY* (if (eq op 'define) #'eval-defun #'compile-defun))) (declare (special ECHOMETA SINGLINEMODE XCAPE XTOKENREADER INPUTSTREAM SPADERRORSTREAM ISID NBLNK COMMENTCHR $TOKSTACK /SOURCEFILES - METAKEYLST DEFINITION_NAME |$sourceFileTypes| + DEFINITION_NAME |$sourceFileTypes| $FUNCTION $BOOT $NEWSPAD $LINESTACK $LINENUMBER STACK STACKX BACK OK TRAPFLAG |$InteractiveMode| TOK COUNT ERRCOL COLUMN *QUERY CHR LINE)) (if (PAIRP FN) (SETQ FN (QCAR FN))) diff --git a/src/interp/debugsys.lisp.pamphlet b/src/interp/debugsys.lisp.pamphlet index 7f4fa95..6b25f1a 100644 --- a/src/interp/debugsys.lisp.pamphlet +++ b/src/interp/debugsys.lisp.pamphlet @@ -261,8 +261,6 @@ loaded by hand we need to establish a value. (load (user::thepath "/int/interp/obey.lsp")) ;(si::multiply-bignum-stack 10) (si::gbc-time 0) -(setq si::*system-directory* - (user::thepath (concatenate 'string "/mnt/" *sys* "/bin/"))) (gbc t) @ diff --git a/src/interp/define.boot.pamphlet b/src/interp/define.boot.pamphlet index 0f2dc03..b40d2c1 100644 --- a/src/interp/define.boot.pamphlet +++ b/src/interp/define.boot.pamphlet @@ -376,7 +376,7 @@ compDefineFunctor1(df is ['DEF,form,signature,$functorSpecialCases,body], --prevents CheckVector from printing out same message twice $getDomainCode: local := nil -- code for getting views $insideFunctorIfTrue: local:= true - $functorsUsed: local := nil --not currently used, finds dependent functors +-- $functorsUsed: local := nil --not currently used, finds dependent functors $setelt: local := $QuickCode = true => 'QSETREFV 'SETELT @@ -1282,7 +1282,7 @@ doIt(item,$predl) == $functorLocalParameters:= [:$functorLocalParameters,lhs] if code is ['LET,.,rhs',:.] and isDomainForm(rhs',$e) then if isFunctor rhs' then - $functorsUsed:= insert(opOf rhs',$functorsUsed) +-- $functorsUsed:= insert(opOf rhs',$functorsUsed) $packagesUsed:= insert([opOf rhs'],$packagesUsed) if lhs="Rep" then $Representation:= (get("Rep",'value,$e)).(0) diff --git a/src/interp/foam_l.lisp.pamphlet b/src/interp/foam_l.lisp.pamphlet index a4e1932..60b2bf0 100644 --- a/src/interp/foam_l.lisp.pamphlet +++ b/src/interp/foam_l.lisp.pamphlet @@ -168,7 +168,7 @@ ;; type defs for Foam types -(deftype |Char| () 'string-char) +(deftype |Char| () 'character) (deftype |Clos| () 'list) (deftype |Bool| () '(member t nil)) (deftype |Byte| () 'unsigned-byte) diff --git a/src/interp/macros.lisp.pamphlet b/src/interp/macros.lisp.pamphlet index 117408c..44a6d3e 100644 --- a/src/interp/macros.lisp.pamphlet +++ b/src/interp/macros.lisp.pamphlet @@ -126,8 +126,6 @@ ends up being [[CONTAINED |$EmptyMode| Y]]. <<*>>= <> -(provide 'Boot) - (in-package "BOOT") (defvar |$compilingMap| ()) @@ -1673,7 +1671,8 @@ terminals and empty or at-end files. In Common Lisp, we must assume record size ; (2) with possible line breaks within a; ; (3) otherwise display without a brace `(LET - ((state)) + ((state) (ht (make-hash-table))) + (declare (special ht)) (setq state (|saveState| 't)) (or (markhash ,b 0) diff --git a/src/interp/metalex.lisp.pamphlet b/src/interp/metalex.lisp.pamphlet index 00f1b76..958ce34 100644 --- a/src/interp/metalex.lisp.pamphlet +++ b/src/interp/metalex.lisp.pamphlet @@ -194,7 +194,7 @@ empty (if File-Closed (return nil)) (t 'special-char))) (defun make-adjustable-string (n) - (make-array (list n) :element-type 'string-char :adjustable t)) + (make-array (list n) :element-type 'standard-char :adjustable t)) (defun get-identifier-token (token) "Take an identifier off the input stream." diff --git a/src/interp/monitor.lisp.pamphlet b/src/interp/monitor.lisp.pamphlet index 03ab46d..7e68de0 100644 --- a/src/interp/monitor.lisp.pamphlet +++ b/src/interp/monitor.lisp.pamphlet @@ -511,7 +511,7 @@ for example: (eval `(trace (,name :cond (progn (monitor-incr ',name) nil)))) (setf (gethash name *monitor-table*) (make-monitor-data - :name name :count 0 :monitorp t :sourcefile sourcefile))))) + :name name :count 0 :monitorp t :sourcefile sourcefile))) (defun monitor-delete (fn) "delete a function from the monitor table" diff --git a/src/interp/nlib.lisp.pamphlet b/src/interp/nlib.lisp.pamphlet index 482bcb9..9be8dfe 100644 --- a/src/interp/nlib.lisp.pamphlet +++ b/src/interp/nlib.lisp.pamphlet @@ -431,7 +431,7 @@ but has been changed to read: (string filearg))))))) (defun make-full-namestring (filearg &optional (filetype nil)) - (namestring (merge-pathnames (make-filename filearg filetype)))) + (namestring (merge-pathnames (make-filename filearg filetype) (truename ".")))) (defun probe-name (file) (if (probe-file file) (namestring file) nil)) diff --git a/src/interp/parsing.lisp.pamphlet b/src/interp/parsing.lisp.pamphlet index cce7470..d1a0b2b 100644 --- a/src/interp/parsing.lisp.pamphlet +++ b/src/interp/parsing.lisp.pamphlet @@ -556,7 +556,7 @@ the stack, then stack a NIL. Return the value of prod." (if (every #'alpha-char-p string) string (let* ((size (length string)) (out-string (make-array (* 2 size) - :element-type 'string-char + :element-type 'standard-char :fill-pointer 0)) next-char) (dotimes (i size) @@ -689,7 +689,7 @@ is a token separator, which blank is equivalent to." (defun make-string-adjustable (s) (cond ((adjustable-array-p s) s) - (t (make-array (array-dimensions s) :element-type 'string-char + (t (make-array (array-dimensions s) :element-type 'standard-char :adjustable t :initial-contents s)))) (defun get-a-line (stream) diff --git a/src/interp/sfsfun-l.lisp.pamphlet b/src/interp/sfsfun-l.lisp.pamphlet index c7c992e..00e6ce1 100644 --- a/src/interp/sfsfun-l.lisp.pamphlet +++ b/src/interp/sfsfun-l.lisp.pamphlet @@ -76,10 +76,10 @@ (defun rpsi (n x) (|rPsi| n x) ) (defun cpsi (n z) (c-to-s (|cPsi| n (s-to-c z)) )) -(defun rbesselj (n x) (c-to-r (|BesselJ| n x)) )) +(defun rbesselj (n x) (c-to-r (|BesselJ| n x)) ) (defun cbesselj (v z) (c-to-s (|BesselJ| (s-to-c v) (s-to-c z)) )) -(defun rbesseli (n x) (c-to-r (|BesselI| n x)) )) +(defun rbesseli (n x) (c-to-r (|BesselI| n x)) ) (defun cbesseli (v z) (c-to-s (|BesselI| (s-to-c v) (s-to-c z)) )) (defun chyper0f1 (a z) (c-to-s (|chebf01| (s-to-c a) (s-to-c z)) )) diff --git a/src/interp/sockio.lisp.pamphlet b/src/interp/sockio.lisp.pamphlet index c58f2cf..f56999c 100644 --- a/src/interp/sockio.lisp.pamphlet +++ b/src/interp/sockio.lisp.pamphlet @@ -266,10 +266,7 @@ resolve the problem ) (setq |$NaNvalue| (NANQ)) -#-:ccl - (setq |$plusInfinity| (* 1.1 MOST-POSITIVE-LONG-FLOAT)) -#+:ccl - (setq |$plusInfinity| MOST-POSITIVE-LONG-FLOAT) +(setq |$plusInfinity| MOST-POSITIVE-LONG-FLOAT) (setq |$minusInfinity| (- |$plusInfinity|)) @ diff --git a/src/interp/sys-pkg.lisp.pamphlet b/src/interp/sys-pkg.lisp.pamphlet index 850237d..a880c5b 100644 --- a/src/interp/sys-pkg.lisp.pamphlet +++ b/src/interp/sys-pkg.lisp.pamphlet @@ -41,37 +41,111 @@ We create all of the known packages here. <<*>>= <> +@ Towards ANSI compliance. We need the name of the package which +exports the standard Lisp symbols. In a CLtL1 Lisp, these symbols +exist in the LISP package. For ANSI, COMMON-LISP is defined. +<<*>>= +(eval-when (:compile-toplevel :load-toplevel :execute) + (defconstant +standard-lisp-package+ + (if (find-package "COMMON-LISP") + "COMMON-LISP" + "LISP"))) + @ The spad compiler package. Although I believe this is a dead package at this point. All of the symbols from this package have been moved into the boot package. <<*>>= -(make-package "SCRATCHPAD_COMPILER") +(defpackage "SCRATCHPAD-COMPILER" + (:use #.+standard-lisp-package+)) @ The special functions package. There was originally lisp code to support hardcoded knowledge of special functions like gamma. This is also a dead package as the functions have been lifted to the algebra level. <<*>>= -(make-package "SPECFNSF") +(defpackage "SPECFNSF") @ This is the package that originally contained the VMLisp macros but in fact contains macros to support several other lisps. It is essentially the place where most of the macros to support idioms from prior ports (like rdefiostream and fileactq) + <<*>>= -(make-package "VMLISP") -(in-package "VMLISP") -(lisp::use-package '("USER" "SYSTEM" "LISP")) +(defpackage "VMLISP" + (:use #.+standard-lisp-package+) + #+:GCL + (:import-from "LISP" + "ALLOCATE" "BYE" "CLINES" + "DEFENTRY" "DOUBLE" "GBC" + "INT" "OBJECT" "SYSTEM") + #+GCL + (:import-from "SYSTEM" + "GETENV" "MEMQ") + (:export + "$CLEAR" "$CURRENT-DIRECTORY" "$DIRECTORY-LIST" "$ERASE" "$FCOPY" "$FILEP" + "$FILETYPE-TABLE" "$FINDFILE" "$INFILEP" "$LIBRARY-DIRECTORY-LIST" "$LISTFILE" + "$OUTFILEP" "$REPLACE" "$SCREENSIZE" "$SHOWLINE" "$SPADROOT" + "$TOTAL-ELAPSED-TIME" "$TOTAL-GC-TIME" "$defaultMsgDatabaseName" + "$msgDatabaseName" "*COMP370-APPLY*" "*FILEACTQ-APPLY*" "*LISP-BIN-FILETYPE*" + "*LISP-SOURCE-FILETYPE*" "ABSVAL" "ADD1" "ADDOPTIONS" "ALLOCATE" "APPLX" + "ASSEMBLE" "ASSQ" "BFP" "BINTP" "BOOLEANP" "BPINAME" "BYE" "CALLBELOW" "CATCHALL" + "CGREATERP" "CHANGELENGTH" "CHAR2NUM" "CHARP" "CLINES" "CLOSEDFN" "COMP370" + "COMPILE-LIB-FILE" "COMPRREAD" "COMPRWRITE" "CONCAT" "CONSOLE" "CONSTANT" + "COPY" "CREATE-SBC" "CURINSTREAM" "CUROUTSTREAM" "CURRENTTIME" "CURRINDEX" + "CVEC" "CVECP" "DCQ" "DEFENTRY" "DEFINE-FUNCTION" "DEFIOSTREAM" "DEVICE" + "DIFFERENCE" "DIG2FIX" "DIGITP" "DIVIDE" "DOUBLE" "DOWNCASE" "DSETQ" "EBCDIC" + "ECQ" "EFFACE" "EMBED" "EMBEDDED" "EOFP" "EQCAR" "EQQ" "EQSUBSTLIST" + "ERRORINSTREAM" "ERROROUTSTREAM" "EVA1" "EVA1FUN" "EVALANDFILEACTQ" "EVALFUN" + "EXIT" "F,PRINT-ONE" "FBPIP" "FETCHCHAR" "FILE" "FIX" "FIXP" "FLUID" "FUNARGP" + "GBC" "GCMSG" "GENSYMP" "GETENV" "GETFULLSTR" "GETL" "GETREFV" "GETSTR" + "GGREATERP" "GREATERP" "HASHCVEC" "HASHEQ" "HASHID" "HASHTABLE-CLASS" + "HASHTABLEP" "HASHUEQUAL" "HCLEAR" "HCOUNT" "HGET" "HKEYS" "HPUT" "HPUT*" + "HPUTPROP" "HREM" "HREMPROP" "I" "ID" "IDENTP" "IFCAR" "IFCDR" "INPUT" "INT" + "INT2RNUM" "INTERSECTIONQ" "INTP" "IOSTATE" "IS-CONSOLE" "IVECP" "KOMPILE" + "L-CASE" "LAM" "LAM,EVALANDFILEACTQ" "LAM,FILEACTQ" "LASTNODE" "LASTPAIR" + "LC2UC" "LENGTHOFBPI" "LESSP" "LEXGREATERP" "LINTP" "LISPLIB" "LIST2REFVEC" + "LIST2VEC" "LISTOFFLUIDS" "LISTOFFREES" "LISTOFFUNCTIONS" "LISTOFQUOTES" "LN" + "LOADCOND" "LOADVOL" "LOG2" "MACERR" "MACRO-INVALIDARGS" "MACRO-MISSINGARGS" + "MAKE-ABSOLUTE-FILENAME" "MAKE-APPENDSTREAM" "MAKE-BVEC" "MAKE-CVEC" + "MAKE-FILENAME" "MAKE-FULL-CVEC" "MAKE-HASHTABLE" "MAKE-INPUT-FILENAME" + "MAKE-INSTREAM" "MAKE-OUTSTREAM" "MAKE-VEC" "MAKEPROP" "MAKESTRING" "MAPELT" + "MAXINDEX" "MBPIP" "MDEF" "MDEFX" "MEMQ" "MINUS" "MLAMBDA" "MODE" "MOVEVEC" + "MRP" "MSUBST" "MSUBSTQ" "NAMEDERRSET" "NCONC2" "NE" "NEQ" "NEXT" "NILFN" + "NREMOVE" "NREMOVEQ" "NULLOUTSTREAM" "NUM2CHAR" "NUMBEROFARGS" "NUMP" "O" + "OBEY" "OBJECT" "ONE-OF" "OPTIONLIST" "ORADDTEMPDEFS" "OUTPUT" "PAIRP" "PAPPP" + "PLACEP" "PLUS" "PNAME" "POPP" "PRETTYPRIN0" "PRETTYPRINT" "PRIN0" "PRIN2CVEC" + "PRINTEXP" "PROPLIST" "PUT" "QASSQ" "QCAAAAR" "QCAAADR" "QCAAAR" "QCAADAR" + "QCAADDR" "QCAADR" "QCAAR" "QCADAAR" "QCADADR" "QCADAR" "QCADDAR" "QCADDDR" + "QCADDR" "QCADR" "QCAR" "QCDAAAR" "QCDAADR" "QCDAAR" "QCDADAR" "QCDADDR" + "QCDADR" "QCDAR" "QCDDAAR" "QCDDADR" "QCDDAR" "QCDDDAR" "QCDDDDR" "QCDDDR" + "QCDDR" "QCDR" "QCSIZE" "QENUM" "QEQQ" "QESET" "QLENGTH" "QMEMQ" "QREFELT" + "QRPLACA" "QRPLACD" "QRPLQ" "QSABSVAL" "QSADD1" "QSDEC1" "QSDIFFERENCE" + "QSETQ" "QSETREFV" "QSETVELT" "QSETVELT-1" "QSGREATERP" "QSINC1" "QSLEFTSHIFT" + "QSLESSP" "QSMAX" "QSMIN" "QSMINUS" "QSMINUSP" "QSODDP" "QSORT" "QSPLUS" + "QSQUOTIENT" "QSREMAINDER" "QSSUB1" "QSTIMES" "QSTRINGLENGTH" "QSZEROP" + "QUOTIENT" "QVELT" "QVELT-1" "QVMAXINDEX" "QVSIZE" "RCLASS" "RCOPYITEMS" + "RDEFIOSTREAM" "RDROPITEMS" "RE-ENABLE-INT" "RECLAIM" "RECOMPILE-DIRECTORY" + "RECOMPILE-LIB-FILE-IF-NECESSARY" "REFVECP" "REMAINDER" "REMOVEQ" "REROOT" + "RESETQ" "RKEYIDS" "RNUMP" "RPACKFILE" "RPLACSTR" "RPLNODE" "RPLPAIR" "RPLQ" + "RREAD" "RSETCLASS" "RSHUT" "RVECP" "RWRITE" "SEQ" "SETANDFILEQ" + "SETDIFFERENCE" "SETDIFFERENCEQ" "SETELT" "SETQP" "SETSIZE" "SFP" "SHUT" + "SINTP" "SIZE" "SMINTP" "SORTBY" "SORTGREATERP" "STACKLIFO" "STATEP" "STRCONC" + "STRGREATERP" "STRING2ID-N" "STRINGIMAGE" "STRINGLENGTH" "STRPOS" "STRPOSL" + "SUB1" "SUBLOAD" "SUBRP" "SUBSTQ" "SUBSTRING" "SUFFIX" "SYSTEM" "TAB" + "TEMPUS-FUGIT" "TEREAD" "THROW-PROTECT" "TIMES" "TRIMSTRING" "TRUEFN" "U-CASE" + "UEQUAL" "UNEMBED" "UNIONQ" "UPCASE" "USE-VMLISP-SYNTAX" "VEC-SETELT" + "VEC2LIST" "VECP" "VM/" "VMPRINT" "VMREAD" "assoc" "directoryp" "idChar?" + "intersection" "last" "log" "member" "nsubst" "read-line" "remove" + "shoeInputFile" "shoeread-line" "startsId?" "union")) @ This is the boot to lisp compiler package which contains the src/boot files. Tt is the boot translator package. <<*>>= -(make-package "BOOTTRAN") -(in-package "BOOTTRAN") -(lisp::use-package '("LISP")) +(defpackage "BOOTTRAN" + (:use #.+standard-lisp-package+)) @ Everything in axiom that the user references eventually shows @@ -79,9 +153,8 @@ up here. The interpreter and the algebra are run after switching to the boot package (in-package "BOOT") so any symbol that the interpreter or algebra uses has to (cough, cough) appear here. <<*>>= -(make-package "BOOT") -(in-package "BOOT") -(lisp::use-package '("VMLISP" "LISP")) +(defpackage "BOOT" + (:use #.+standard-lisp-package+ "VMLISP")) @ FOAM is the intermediate language for the aldor compiler. FOAM @@ -90,987 +163,17 @@ RTL for the GCC compiler. It is a "machine" that is used as the target for meta-assembler level statments. These are eventually expanded for the real target machine (or interpreted directly) <<*>>= -(make-package "FOAM") -(in-package "FOAM") -(lisp::use-package '("LISP")) +(defpackage "FOAM" + (:use #.+standard-lisp-package+)) @ FOAM-USER is the package containing foam statements and macros that get inserted into user code versus the foam package which provides support for compiler code. <<*>>= -(make-package "FOAM-USER") -(in-package "FOAM-USER") -(lisp::use-package '("LISP" "FOAM")) - -(lisp:in-package "BOOT") - -(lisp:import - '(VMLISP::ERROROUTSTREAM LISP::COUNT VMLISP::NE VMLISP::FLUID - LISP:SEQUENCE VMLISP::OBEY LISP:NUMBER VMLISP::|union| - LISP:STEP VMLISP::OPTIONLIST VMLISP::EXIT VMLISP::throw-protect -<> - VMLISP::GET-CURRENT-DIRECTORY VMLISP::AXIOM-PROBE-FILE - VMLISP::*INDEX-FILENAME*)) -(lisp:export - '(BOOT::|$FormalMapVariableList| BOOT::|$userModemaps| - boot::restart boot::$IEEE - BOOT::|directoryp| boot::help boot::|version| boot::|pp| - BOOT::POP-STACK-4 BOOT::|$BasicDomains| BOOT::|$DomainFrame| - BOOT::|$SideEffectFreeFunctionList| - BOOT::ATOM2STRING BOOT::|$DoubleQuote| BOOT::|$genSDVar| - BOOT::GETCHARN BOOT::DROP VMLISP::ERROROUTSTREAM - BOOT::MATCH-STRING BOOT::|$fromSpadTrace| - BOOT::|$UserSynonyms| BOOT::%L BOOT::FLUIDVARS - BOOT::/EMBEDREPLY BOOT::|$LocalFrame| BOOT::|$streamIndexing| - BOOT::APPLYR BOOT::NEXTINPUTLINE BOOT::$NORMALSTRING - BOOT::|$InteractiveTimingStatsIfTrue| BOOT::|$leaveLevelStack| - BOOT::|$xyMin| BOOT::|lcm| BOOT::STRINGSUFFIX - BOOT::|Category| BOOT::ESCAPE-CHARACTER - LISP:COUNT BOOT::|break| BOOT::$DIRECTORY - BOOT::CONVERSATION BOOT::|fillerSpaces| - BOOT::$REVERSEVIDEOSTRING BOOT::|$DomainsInScope| - BOOT::|$gauss01| BOOT::|$mostRecentOpAlist| BOOT::SUBLISLIS - BOOT::QUITFILE BOOT::|PrintBox| BOOT::POP-REDUCTION - BOOT::META-SYNTAX-ERROR BOOT::|$constructorInfoTable| - BOOT::|$currentLine| BOOT::|$Float| BOOT::|$slamFlag| - BOOT::|$SmallIntegerOpt| BOOT::$SPAD BOOT::|$timerOn| - BOOT::$TRACELETFLAG VMLISP::NE BOOT::ADJCURMAXINDEX - BOOT::STREAM-BUFFER BOOT::SPADSLAM BOOT::$EM - BOOT::|$PositiveIntegerOpt| BOOT::THETA BOOT::READ-QUIETLY - BOOT::RS BOOT::|$compUniquelyIfTrue| - BOOT::|$insideExpressionIfTrue| BOOT::LE BOOT::KAR BOOT::ELEM - BOOT::LASTATOM BOOT::IN-STREAM BOOT::$DELAY - BOOT::QSEXPT BOOT::|$quadSymbol| BOOT::|$streamAlist| - BOOT::|$SymbolOpt| BOOT::TAKE BOOT::CONSOLEINPUTP - BOOT::|$hasYield| BOOT::DEBUGMODE BOOT::|$DummyFunctorNames| - BOOT::|$PositiveInteger| BOOT::%D VMLISP::FLUID BOOT::TLINE - BOOT::|$abbreviationTable| BOOT::|$FontTable| - BOOT::|$PatternVariableList| BOOT::|$returnMode| BOOT::NEQUAL - BOOT::GE BOOT::|MakeSymbol| BOOT::|$insideWhereIfTrue| - BOOT::|$mapSubNameAlist| BOOT::GETCHAR BOOT::|Gaussian| - BOOT::IDENTIFIER BOOT::|$LastCxArg| BOOT::|$systemCommands| - BOOT::|$true| BOOT::SETANDFILE BOOT::PUSH-REDUCTION - BOOT::|$BigFloat| BOOT::|$brightenCommentsFlag| - BOOT::|$cacheCount| BOOT::|$exitModeStack| BOOT::|$noEnv| - BOOT::|$NonPositiveIntegerOpt| BOOT::PUTGCEXIT - BOOT::|$readingFile| - BOOT::IS BOOT::KDR BOOT::|$quadSym| BOOT::|$BreakMode| - BOOT::$TOKSTACK BOOT::DEFSTREAM BOOT::LOCVARS BOOT::NTH-STACK - BOOT::$UNDERLINESTRING BOOT::|$compCount| - BOOT::|$lisplibModemapAlist| BOOT::COMP BOOT::LINE - BOOT::GETGENSYM BOOT::$FUNNAME BOOT::|$SystemSynonyms| - BOOT::|$spadOpList| BOOT::GENERAL BOOT::|$fortranOutputStream| - BOOT::META_PREFIX BOOT::|$InteractiveMode| BOOT::|strconc| - BOOT::TAILFN BOOT::RPLACW BOOT::|PositiveInteger| - BOOT::|$inactiveLisplibs| BOOT::|$NonPositiveInteger| - BOOT::|$reportCoerceIfTrue| - BOOT::|sayBrightlyNT| BOOT::NEXT-CHAR boot::|sayString| - BOOT::META_ERRORS_OCCURRED BOOT::|$resolveFlag| - BOOT::|$StringOpt| BOOT::|UnivariatePoly| BOOT::MATCH-TOKEN - BOOT::|$createUpdateFiles| BOOT::|$noParseCommands| - BOOT::FLAGP BOOT::ECHO-META BOOT::|initializeSetVariables| - BOOT::|$CategoryNames| BOOT::?ORDER - BOOT::$FILELINENUMBER BOOT::|$timerTicksPerSecond| - BOOT::|bootUnionPrint| BOOT::|$consistencyCheck| - BOOT::|$oldTime| BOOT::$NEWSPAD BOOT::NUMOFNODES - BOOT::|$ResMode| BOOT::S* BOOT::TRANSPGVAR BOOT::$BOXSTRING - BOOT::|$BasicPredicates| BOOT::|$eltIfNil| BOOT::$FUNNAME_TAIL - BOOT::|$QuickCode| BOOT::GENVAR BOOT::|$TypeEqui| - BOOT::TOKEN-TYPE BOOT::|updateSourceFiles| BOOT::|$BFtag| - BOOT::|$reportBottomUpFlag| BOOT::|$SmallInteger| - BOOT::|$TypeEQ| BOOT::|Boolean| BOOT::|RationalNumber| - BOOT::MAKENEWOP BOOT::|$EmptyList| BOOT::|$leaveMode| - BOOT::MKQ BOOT::ON BOOT::CONTAINED BOOT::|conOutStream| - BOOT::POINTW BOOT::REDUCTION-POP-ELT BOOT::TOKEN-SYMBOL - BOOT::ERRCOL BOOT::|$domainTraceNameAssoc| BOOT::SUBSTEQ - BOOT::DELASSOS BOOT::|Size| BOOT::|$form| - BOOT::|$insideCategoryIfTrue| BOOT::SUCHTHAT BOOT::|One| - BOOT::ACTION BOOT::MDEFTRACE BOOT::|$BooleanOpt| - BOOT::|$xyStack| BOOT::ASSOCLEFT BOOT::|sayALGEBRA| - BOOT::|Coord| BOOT::IDENTIFIER-TOKEN BOOT::ADVANCE-CHAR - BOOT::|$InitialDomainsInScope| BOOT::|$StringCategory| - BOOT::S- BOOT::NEWLINE BOOT::|$optimizableDomainNames| - BOOT::IN BOOT::COLLECTV BOOT::|$Lisp| - BOOT::|$lisplibOperationAlist| BOOT::|$reportExitModeStack| - BOOT::|$updateCatTableIfTrue| BOOT::NREVERSE0 BOOT::%M - BOOT::|sayFORTRAN| BOOT::NEWLINECHR BOOT::|$EmptyMode| - BOOT::|$Zero| BOOT::CARCDREXPAND BOOT::|IS_#GENVAR| - BOOT::LISTOFATOMS BOOT::|$algebraOutputStream| - BOOT::|$highlightAllowed| BOOT::|NonNegativeInteger| - BOOT::/EMBED-1 - BOOT::|$constructorsNotInDatabase| BOOT::|$ConstructorNames| - BOOT::|$Integer| BOOT::|$systemModemapsInCore| BOOT::KADDR - BOOT::STAR BOOT::|$reportCompilation| - BOOT::|$traceNoisely| BOOT::SPADDIFFERENCE BOOT::%B - BOOT::COMMENT-CHARACTER BOOT::|$PrettyPrint| BOOT::SPADLET - BOOT::|$ModemapFrame| BOOT::|$QuickLet| BOOT::SPADDO - BOOT::PREDECESSOR BOOT::*EOF* BOOT::POP-STACK-1 BOOT::BANG - BOOT::|$ConstructorCache| BOOT::|$printConStats| - BOOT::|$RationalNumberOpt| BOOT::RESET - BOOT::NLIST BOOT::NSTRCONC BOOT::TAIL BOOT::GETRULEFUNLISTS - BOOT::|$IntegerOpt| BOOT::$NEWLINSTACK BOOT::|$QuietIfNil| - BOOT::$SPAD_ERRORS BOOT::|$useDCQnotLET| BOOT::|$xCount| - BOOT::$BOOT BOOT::POINT BOOT::OPTIONAL BOOT::PARSE-IDENTIFIER - BOOT::BSTRING-TOKEN BOOT::LASTELEM BOOT::STREAM-EOF - BOOT::|sayBrightly| BOOT::|$formulaOutputStream| - BOOT::|BigFloat| BOOT::SLAM BOOT::$DISPLAY - BOOT::|$NonMentionableDomainNames| BOOT::$OLDLINE BOOT::$TYPE - BOOT::STATUS BOOT::KEYFN BOOT::|$NonNegativeIntegerOpt| - BOOT::|$userConstructors| BOOT::BOOT-NEQUAL BOOT::RPLAC - BOOT::GETTAIL BOOT::|QuotientField| BOOT::CURRENT-TOKEN - BOOT::|$suffix| BOOT::|$VariableCount| BOOT::COMPARE - LISP:SEQUENCE BOOT::|$Exit| BOOT::BOOT-EQUAL BOOT::LT - VMLISP::OBEY BOOT::|UnSizedBox| BOOT::|Integer| BOOT::|Nud| - BOOT::IOCLEAR BOOT::|$BigFloatOpt| BOOT::|$EmptyEnvironment| - BOOT::|$forceDatabaseUpdate| BOOT::$LINESTACK BOOT::ULCASEFG - BOOT::|$Boolean| BOOT::|$clamList| BOOT::COLLECT - BOOT::IOSTREAMS-SET BOOT::MUST BOOT::|$FloatOpt| - BOOT::|$NonNegativeInteger| - BOOT::FLAG BOOT::TL BOOT::BLANKS BOOT::|$report3| - BOOT::|$reportFlag| BOOT::|$xeditIsConsole| BOOT::PAIR - BOOT::|$evalDomain| BOOT::|$traceletFunctions| BOOT::|$Void| - BOOT::GT BOOT::MATCH-ADVANCE-STRING - BOOT::|$scanModeFlag| BOOT::SUBLISNQ BOOT::LASSQ BOOT::NOTE - BOOT::ILAM BOOT::CURRENT-SYMBOL - BOOT::|$SetFunctions| BOOT::|$sourceFileTypes| BOOT::|String| - BOOT::NUMBER-TOKEN BOOT::$LINENUMBER BOOT::$NUM_OF_META_ERRORS - BOOT::|$Polvar| BOOT::|$domainsWithUnderDomains| - BOOT::SPADCALL BOOT::DELASC BOOT::FAIL BOOT::$COMPILE - BOOT::|$lastUntraced| BOOT::|$lisplibKind| - BOOT::|$tracedModemap| BOOT::|$inputPromptType| BOOT::LASSOC - LISP:NUMBER BOOT::|$prefix| BOOT::|$TranslateOnly| BOOT::SAY - BOOT::|$CategoryFrame| BOOT::|$croakIfTrue| BOOT::|$exitMode| - BOOT::|$lisplibDependentCategories| BOOT::|$NoValue| - BOOT::MOAN BOOT::POP-STACK-2 BOOT::BAC - BOOT::|$InitialModemapFrame| BOOT::$MAXLINENUMBER - BOOT::$ESCAPESTRING BOOT::|$bootStrapMode| - BOOT::|$compileMapFlag| BOOT::|$currentFunction| - BOOT::|$DomainNames| BOOT::|$PolyMode| BOOT::|$tripleCache| - BOOT::SUCHTHATCLAUSE BOOT::WHILE BOOT::S+ BOOT::|Expression| - BOOT::PARSE-NUMBER BOOT::|$Index| BOOT::$NBOOT - BOOT::|$PrintCompilerMessagesIfTrue| BOOT::$PROMPT - BOOT::MAKE-PARSE-FUNCTION BOOT::/METAOPTION BOOT::|$topOp| - BOOT::|$xyInitial| BOOT::MKPF BOOT::STRM - BOOT::MATCH-NEXT-TOKEN BOOT::|pathname| BOOT::|$cacheAlist| - BOOT::$FUNCTION BOOT::|$reportSpadTrace| - BOOT::|$tempCategoryTable| BOOT::|$underDomainAlist| - BOOT::|$whereList| BOOT::|append| BOOT::|function| - BOOT::CURINPUTLINE BOOT::|sayFORMULA| - BOOT::/GENVARLST BOOT::|$Category| BOOT::|$SpecialDomainNames| - VMLISP::|union| BOOT::ASSOCRIGHT BOOT::CURSTRMLINE - BOOT::REDUCTION BOOT::|$lisplibDomainDependents| - BOOT::|OptionList| BOOT::|$postStack| BOOT::|$traceDomains| - BOOT::BRIGHTPRINT BOOT::|$instantRecord| - BOOT::|$NETail| BOOT::UNTIL BOOT::GET-TOKEN - BOOT::|$Expression| BOOT::$LASTPREFIX BOOT::|$mathTraceList| - BOOT::|$PrintOnly| BOOT::ELEMN BOOT::NILADIC - BOOT::PARSE-BSTRING BOOT::/DEPTH BOOT::|$spadLibFT| - BOOT::|$xyMax| BOOT::|$IOindex| BOOT::SPADCONST - BOOT::|sayBrightlyI| BOOT::|SquareMatrix| - BOOT::LASTTAIL - BOOT::|UnboundBox| BOOT::NEXT-TOKEN - BOOT::|$OutsideStringIfTrue| BOOT::|$String| BOOT::TRIMLZ - BOOT::KADR BOOT::STRMBLANKLINE BOOT::STRMSKIPTOBLANK - BOOT::IOSTAT BOOT::|$insideCoerceInteractiveHardIfTrue| - BOOT::|$lisplibSignatureAlist| BOOT::REMFLAG BOOT::SPADREDUCE - BOOT::QLASSQ BOOT::NEXTSTRMLINE BOOT::|FontTable| BOOT::|Led| - BOOT::UNGET-TOKENS BOOT::|$operationNameList| - BOOT::|$tokenCommands| BOOT::IS_GENVAR BOOT::INIT-RULES - BOOT::|PrintItem| BOOT::$LISPLIB BOOT::|$optionAlist| - BOOT::|$previousTime| BOOT::|$StreamIndex| - BOOT::|$systemLisplibsWithModemapsInCore| - BOOT::|$tracedSpadModemap| BOOT::ISTEP BOOT::|$warningStack| - BOOT::|and| BOOT::OUT-STREAM BOOT::TOKEN - BOOT::|$ConstructorDependencyAlist| - BOOT::|$lisplibVariableAlist| BOOT::INTERNL BOOT::IEQUAL - BOOT::|$algebraList| BOOT::|$brightenCommentsIfTrue| - BOOT::|$failure| BOOT::|$Mode| BOOT::|$opFilter| - BOOT::|$TraceFlag| BOOT::|Float| BOOT::POP-STACK-3 - BOOT::|$EmptyString| BOOT::$TOP_STACK BOOT::|$mpolyTTrules| - BOOT::|$mpolyTMrules| BOOT::|$InteractiveFrame| - BOOT::|$InteractiveModemapFrame| BOOT::|$letAssoc| - BOOT::|$lisp2lispRenameAssoc| BOOT::|$RationalNumber| - BOOT::|$ThrowAwayMode| BOOT::*PROMPT* BOOT::NUMOFARGS - BOOT::|$semanticErrorStack| BOOT::|$spadSystemDisks| - BOOT::$TOP_LEVEL BOOT::BUMPCOMPERRORCOUNT - BOOT::|delete| BOOT::STREQ BOOT::STRING-TOKEN BOOT::XNAME - BOOT::|$ExpressionOpt| BOOT::|$systemCreation| BOOT::$GENNO - BOOT::CROAK BOOT::PARSE-STRING BOOT::|$genFVar| - BOOT::|$lisplibModemap| BOOT::|$NoValueMode| BOOT::|$PrintBox| - BOOT::ADVANCE-TOKEN BOOT::|$NegativeIntegerOpt| - BOOT::|$polyDefaultAssoc| BOOT::|$PrimitiveDomainNames| - LISP:STEP BOOT::|rassoc| BOOT::|$Res| - BOOT::MATCH-CURRENT-TOKEN BOOT::/GENSYMLIST BOOT::|$false| - BOOT::|$ignoreCommentsIfTrue| BOOT::|$ModeVariableList| - BOOT::|$useBFasDefault| BOOT::|$CommonDomains| - BOOT::|$printLoadMsgs| BOOT::|dataCoerce| BOOT::|$inLispVM| - BOOT::|$streamCount| - BOOT::|$Symbol| BOOT::|$updateIfTrue| BOOT::REMDUP - BOOT::ADDASSOC BOOT::|PrintList| - BOOT::SPECIAL-CHAR BOOT::XCAPE BOOT::|$EmptyVector| - BOOT::REPEAT BOOT::|$NegativeInteger| - BOOT::LENGTHENVEC BOOT::CURMAXINDEX BOOT::|$hasCategoryTable| - BOOT::|$leftPren| BOOT::|$lisplibForm| BOOT::|$OneCoef| - BOOT::|$reportCoerce| VMLISP::OPTIONLIST BOOT::META - BOOT::|$insideCapsuleFunctionIfTrue| - BOOT::|$insideConstructIfTrue| BOOT::$BOLDSTRING - BOOT::|breaklet| BOOT::|$insideCompTypeOf| - BOOT::|$rightPren| - BOOT::|$systemLastChanged| BOOT::|$xyCurrent| BOOT::|Zero| - BOOT::YIELD BOOT::|Polynomial| BOOT::|$Domain| BOOT::STRINGPAD - BOOT::TRUNCLIST BOOT::|SmallInteger| BOOT::|$libFile| - BOOT::|$mathTrace| BOOT::|$PolyDomains| BOOT::|or| - BOOT::|$DomainVariableList| BOOT::|$insideFunctorIfTrue| - BOOT::|$One| VMLISP::EXIT BOOT::CURRENT-CHAR BOOT::NBLNK - BOOT::$DALYMODE)) - -;;; Definitions for package VMLISP of type EXPORT -(lisp:in-package "VMLISP") -(lisp:import '( -<> -<> -<> - BOOT:|directoryp|)) -(lisp:export - '(VMLISP::SINTP VMLISP::$FCOPY -<> -<> -<> - VMLISP::PUT - VMLISP::QVELT-1 VMLISP::QSETVELT-1 vmlisp::throw-protect - VMLISP::|directoryp| VMLISP::EQCAR - VMLISP::DEFIOSTREAM VMLISP::RDEFIOSTREAM VMLISP::MLAMBDA - VMLISP::QSLESSP VMLISP::QSDIFFERENCE VMLISP::QSQUOTIENT - VMLISP::ERROROUTSTREAM VMLISP::CREATE-SBC VMLISP::LASTPAIR - VMLISP::EQSUBSTLIST VMLISP::QCAAAR VMLISP::$TOTAL-ELAPSED-TIME - VMLISP::QUOTIENT VMLISP::SORTGREATERP - VMLISP::QSETREFV VMLISP::QSTRINGLENGTH VMLISP::EVALFUN - VMLISP::QCDAR VMLISP::TEMPUS-FUGIT VMLISP::QSPLUS VMLISP::QSABSVAL - VMLISP::QSZEROP VMLISP::QSMIN VMLISP::QSLEFTSHIFT - VMLISP::SETDIFFERENCE VMLISP::RPLQ VMLISP::CATCHALL - VMLISP::RECOMPILE-DIRECTORY VMLISP::MDEF VMLISP::LINTP - VMLISP::NILFN VMLISP::TAB VMLISP::QCDDR VMLISP::IOSTATE - VMLISP::SFP VMLISP::NE VMLISP::STRGREATERP - VMLISP::USE-VMLISP-SYNTAX VMLISP::RCLASS - VMLISP::SEQ VMLISP::FIXP VMLISP::MAKE-CVEC - VMLISP::|F,PRINT-ONE| VMLISP::HASHUEQUAL VMLISP::$OUTFILEP - VMLISP::TIMES VMLISP::DIFFERENCE VMLISP::MSUBST VMLISP::DIVIDE - VMLISP::|remove| VMLISP::GETL VMLISP::QCADAR VMLISP::QCAAAAR - VMLISP::RECLAIM VMLISP::ORADDTEMPDEFS VMLISP::NAMEDERRSET - VMLISP::TRIMSTRING VMLISP::CURRINDEX VMLISP::EVALANDFILEACTQ - VMLISP::LISPLIB VMLISP::FLUID VMLISP::MDEFX VMLISP::COMP370 - VMLISP::NEQ VMLISP::GETREFV VMLISP::|log| VMLISP::QVSIZE - VMLISP::MBPIP VMLISP::RPLNODE VMLISP::QSORT - VMLISP::PLACEP VMLISP::RREAD VMLISP::BINTP VMLISP::QSODDP - VMLISP::O VMLISP::RVECP VMLISP::CHAR2NUM VMLISP::POPP - VMLISP::QCDAADR VMLISP::HKEYS VMLISP::HASHCVEC VMLISP::HASHID - VMLISP::REMOVEQ VMLISP::LISTOFFUNCTIONS - VMLISP::QCADAAR VMLISP::ABSVAL VMLISP::VMPRINT - VMLISP::MAKE-APPENDSTREAM - VMLISP::MAKE-INSTREAM VMLISP::HASHTABLEP VMLISP::UPCASE - VMLISP::LOADCOND VMLISP::STRPOSL VMLISP::STATEP VMLISP::QCDADR - VMLISP::HREMPROP VMLISP::LAM VMLISP::FBPIP VMLISP::NCONC2 - VMLISP::GETFULLSTR VMLISP::I VMLISP::HREM - VMLISP::*LISP-BIN-FILETYPE* VMLISP::INT2RNUM VMLISP::EBCDIC - VMLISP::$INFILEP VMLISP::BFP VMLISP::NUMP VMLISP::UNEMBED - VMLISP::PAIRP VMLISP::BOOLEANP VMLISP::FIX VMLISP::REMAINDER - VMLISP::RE-ENABLE-INT VMLISP::QCAADDR VMLISP::QCDDADR - VMLISP::$LISTFILE VMLISP::IVECP VMLISP::LIST2VEC - VMLISP::|LAM,FILEACTQ| VMLISP::LISTOFQUOTES - VMLISP::$ERASE VMLISP::QSDEC1 - VMLISP::QSSUB1 VMLISP::QCAR VMLISP::EVA1FUN VMLISP::IS-CONSOLE - VMLISP::MAKESTRING VMLISP::CUROUTSTREAM VMLISP::QCDDDR - VMLISP::QCDADAR VMLISP::MAKE-ABSOLUTE-FILENAME VMLISP::SUFFIX - VMLISP::FUNARGP VMLISP::VM/ VMLISP::QRPLACA VMLISP::GGREATERP - VMLISP::CGREATERP VMLISP::RNUMP VMLISP::RESETQ VMLISP::QRPLACD - VMLISP::SORTBY VMLISP::CVECP VMLISP::SETELT VMLISP::HGET - VMLISP::$DIRECTORY-LIST VMLISP::LN VMLISP::|member| - VMLISP::$LIBRARY-DIRECTORY-LIST - VMLISP::QCSIZE VMLISP::QCADDDR VMLISP::RWRITE VMLISP::SUBLOAD - VMLISP::STRINGIMAGE VMLISP::$CLEAR VMLISP::|read-line| - VMLISP::PROPLIST VMLISP::INTP VMLISP::OUTPUT VMLISP::CONSOLE - VMLISP::QCDDDAR VMLISP::ADDOPTIONS VMLISP::$FILETYPE-TABLE - VMLISP::QSMINUSP VMLISP::|assoc| VMLISP::SETSIZE VMLISP::QCDR - VMLISP::EFFACE VMLISP::COPY VMLISP::DOWNCASE VMLISP::LC2UC - VMLISP::EMBED VMLISP::SETANDFILEQ VMLISP::QSMAX - VMLISP::LIST2REFVEC VMLISP::MACRO-INVALIDARGS VMLISP::EMBEDDED - VMLISP::REFVECP VMLISP::CLOSEDFN VMLISP::MAKE-HASHTABLE - VMLISP::MAKE-FILENAME VMLISP::|$defaultMsgDatabaseName| - VMLISP::LEXGREATERP - VMLISP::IDENTP VMLISP::QSINC1 VMLISP::QESET VMLISP::MRP - VMLISP::LESSP VMLISP::RPLPAIR VMLISP::QVELT VMLISP::QRPLQ - VMLISP::MACERR VMLISP::*FILEACTQ-APPLY* VMLISP::HPUT* - VMLISP::$FILEP VMLISP::MAKE-FULL-CVEC VMLISP::HCLEAR - VMLISP::ERRORINSTREAM VMLISP::HPUTPROP - VMLISP::STRING2ID-N VMLISP::CALLBELOW VMLISP::BPINAME - VMLISP::CHANGELENGTH VMLISP::ECQ VMLISP::OBEY VMLISP::QASSQ - VMLISP::DCQ VMLISP::SHUT VMLISP::FILE VMLISP::HPUT - VMLISP::MAKEPROP VMLISP::GREATERP - VMLISP::REROOT VMLISP::DIG2FIX VMLISP::L-CASE - VMLISP::TEREAD VMLISP::QSREMAINDER VMLISP::$FINDFILE - VMLISP::EQQ VMLISP::PRETTYPRINT VMLISP::HASHEQ VMLISP::LOG2 - VMLISP::U-CASE VMLISP::NREMOVE VMLISP::QREFELT VMLISP::SIZE - VMLISP::EOFP VMLISP::QCDAAR VMLISP::RSHUT VMLISP::ADD1 - VMLISP::QMEMQ VMLISP::SUBSTRING VMLISP::LOADVOL - VMLISP::QSTIMES VMLISP::STRINGLENGTH VMLISP::NEXT - VMLISP::DEVICE VMLISP::MAPELT VMLISP::LENGTHOFBPI - VMLISP::DIGITP VMLISP::QLENGTH VMLISP::QCAAADR VMLISP::CVEC - VMLISP::VEC2LIST VMLISP::MODE VMLISP::MAKE-VEC VMLISP::GCMSG - VMLISP::CONCAT VMLISP::$SHOWLINE VMLISP::QCAADR VMLISP::QCDDAR - VMLISP::QCDAAAR VMLISP::RDROPITEMS VMLISP::VECP - VMLISP::|union| VMLISP::ONE-OF VMLISP::NULLOUTSTREAM - VMLISP::QSGREATERP VMLISP::MINUS VMLISP::MAXINDEX - VMLISP::GETSTR VMLISP::QCADADR VMLISP::PRIN2CVEC - VMLISP::CURRENTTIME VMLISP::$REPLACE VMLISP::UNIONQ - VMLISP::NREMOVEQ VMLISP::CURINSTREAM VMLISP::MAKE-OUTSTREAM - VMLISP::APPLX VMLISP::LASTNODE VMLISP::SUBSTQ VMLISP::TRUEFN - VMLISP::|last| VMLISP::RPLACSTR VMLISP::SETQP VMLISP::QCADDR - VMLISP::QCAADAR VMLISP::QCDDAAR VMLISP::|intersection| - VMLISP::HASHTABLE-CLASS VMLISP::$CURRENT-DIRECTORY - VMLISP::*COMP370-APPLY* VMLISP::QSETVELT VMLISP::MOVEVEC - VMLISP::ID VMLISP::DEFINE-FUNCTION VMLISP::MSUBSTQ VMLISP::|nsubst| - VMLISP::LISTOFFLUIDS VMLISP::SUB1 VMLISP::NUMBEROFARGS - VMLISP::VMREAD VMLISP::SMINTP VMLISP::$SCREENSIZE - VMLISP::LISTOFFREES VMLISP::QCDADDR VMLISP::COMPRREAD - VMLISP::GENSYMP VMLISP::IFCAR VMLISP::QSETQ - VMLISP::QCADDAR VMLISP::*LISP-SOURCE-FILETYPE* VMLISP::KOMPILE - VMLISP::INPUT VMLISP::PAPPP VMLISP::UEQUAL VMLISP::COMPRWRITE - VMLISP::SUBRP VMLISP::ASSEMBLE VMLISP::|LAM,EVALANDFILEACTQ| - VMLISP::|$msgDatabaseName| VMLISP::IFCDR VMLISP::QVMAXINDEX - VMLISP::$SPADROOT VMLISP::PRIN0 VMLISP::PRETTYPRIN0 - VMLISP::STACKLIFO VMLISP::ASSQ VMLISP::PRINTEXP - VMLISP::QCDDDDR VMLISP::QSADD1 - VMLISP::SETDIFFERENCEQ VMLISP::STRPOS VMLISP::CONSTANT - VMLISP::QCAAR VMLISP::HCOUNT VMLISP::RCOPYITEMS - VMLISP::QSMINUS VMLISP::EVA1 VMLISP::OPTIONLIST - VMLISP::NUM2CHAR VMLISP::QENUM VMLISP::QEQQ - VMLISP::$TOTAL-GC-TIME VMLISP::CHARP VMLISP::QCADR - VMLISP::INTERSECTIONQ VMLISP::DSETQ VMLISP::FETCHCHAR - VMLISP::STRCONC VMLISP::MACRO-MISSINGARGS VMLISP::RPACKFILE - VMLISP::EXIT VMLISP::PLUS VMLISP::RKEYIDS - VMLISP::COMPILE-LIB-FILE VMLISP::RECOMPILE-LIB-FILE-IF-NECESSARY)) - -;;; Definitions for package BOOT of type SHADOW -(lisp:in-package "BOOT") -(lisp:shadow '(BOOT::MAP)) -(lisp:import - '(VMLISP::ERROROUTSTREAM LISP:COUNT VMLISP::NE VMLISP::FLUID - LISP:SEQUENCE VMLISP::OBEY LISP::NUMBER VMLISP::|union| - LISP:STEP VMLISP::OPTIONLIST VMLISP::EXIT VMLISP::LEXGREATERP)) -(lisp:import '(vmlisp::make-input-filename)) -(lisp:import '(vmlisp::libstream-dirname)) -(lisp:import '(user::spad-save)) -(lisp:import '(vmlisp::eqcar)) -(lisp:export '(boot::eqcar)) - -;;; Definitions for package VMLISP of type SHADOW -(lisp:in-package "VMLISP") -(lisp:import '(SYSTEM::DEFINE-MACRO SYSTEM::MEMQ SYSTEM::PNAME)) - - -(in-package "BOOT") ;; Used to be "UNCOMMON" - -(export '( - ;; !! ;;; Passed on from the Lisp package - ;; !! + * - - - ;;;; Operating system interface - |OsRunProgram| |OsRunProgramToStream| |OsProcessNumber| - |OsEnvGet| |OsEnvVarCharacter| |OsExpandString| - - ;;;; Time - |TimeStampString| - - ;;;; Lisp Interface - |LispKeyword| - |LispReadFromString| |LispEval| - |LispCompile| |LispCompileFile| |LispCompileFileQuietlyToObject| - |LispLoadFile| |LispLoadFileQuietly| - - ;;; Control - |funcall| |Catch| |Throw| |UnwindProtect| |CatchAsCan| - - ;;; General - |Eq| |Nil| |DeepCopy| |Sort| |SortInPlace| - - |genRemoveDuplicates| |genMember| - |gobSharedExcluding| |gobSharedParts| |gobAlwaysShared?| - |gobPretty| |gobSexpr| - - ;;; Streams - |Prompt| |PlainError| |PrettyPrint| |PlainPrint| |PlainPrintOn| - |WithOpenStream| - |WriteLispExpr| |WriteByte| |WriteChar| |WriteLine| |WriteString| - |ReadLispExpr| |ReadByte| |ReadChar| |ReadLine| - |ByteFileWriteLine| |ByteFileReadLine| - |ReadLineIntoString| |ByteFileReadLineIntoString| |ReadBytesIntoVector| - |StreamCopyChars| |StreamCopyBytes| - |InputStream?| |OutputStream?| - |StreamSize| |StreamGetPosition| |StreamSetPosition| - |StreamEnd?| |StreamFlush| |StreamClose| - - |FileLine| |StreamLine| - - ;;; Pathnames - |TempFileDirectory| |LispFileType| |FaslFileType| - |ToPathname| |Pathname| |NewPathname| |SessionPathname| - |PathnameDirectory| |PathnameName| |PathnameType| - |PathnameString| |PathnameAbsolute?| - |PathnameWithType| |PathnameWithDirectory| - |PathnameWithoutType| |PathnameWithoutDirectory| - - |PathnameToUsualCase| |PathnameWithinDirectory| - |PathnameDirectoryOfDirectoryPathname| |PathnameWithinOsEnvVar| - - ;;; Symbols - |MakeSymbol| |Symbol?| |SymbolString| - - ;;; Bits - |Bit| |Bit?| |TrueBit| |FalseBit| |BitOn?| |BitOr| - - ;;; General Sequences - ;; !! ;;; Passed on from the Lisp package - ;; !! ELT SETELT - ;; SIZE - - ;;; Vectors - |FullVector| |Vector?| - - ;;; Bit Vectors - |FullBvec| - - ;;; Characters - |char| |Char| |Char?| - |CharCode| |CharGreater?| |CharDigit?| - |SpaceChar| |NewlineChar| - - ;;; Character Sets - |Cset| |CsetMember?| - |CsetUnion| |CsetComplement| |CsetString| - |NumericCset| |LowerCaseCset| |UpperCaseCset| |WhiteSpaceCset| - |AlphaCset| |AlphaNumericCset| - - ;;; Character Strings - |FullString| |ToString| |StringImage| |String?| - |StringGetCode| |StringConcat| - |StringLength| |StringFromTo| |StringFromToEnd| |StringFromLong| - |StringGreater?| |StringPrefix?| |StringUpperCase| |StringLowerCase| - |StringToInteger| |StringToFloat| - |StringWords| |StringTrim| - |StringPositionOf| |StringPositionOfNot| - |UnescapeString| |ExpandVariablesInString| - - ;;; Numbers - |Number?| |Integer?| |SmallInteger?| |Float?| |DoublePrecision| - |Odd?| |Remainder| - |Abs| |Min| |Max| - |Exp| |Ln| |Log10| - |Sin| |Cos| |Tan| |Cotan| |Arctan| - - ;;; Pairs - |Pair?| - - |car| |cdr| - |caar| |cadr| |cdar| |cddr| - |caaar| |caadr| |cadar| |caddr| - |cdaar| |cdadr| |cddar| |cdddr| - |FastCar| |FastCdr| - |FastCaar| |FastCadr| |FastCdar| |FastCddr| - |FastCaaar| |FastCaadr| |FastCadar| |FastCaddr| - |FastCdaar| |FastCdadr| |FastCddar| |FastCdddr| - |IfCar| |IfCdr| - |EqCar| |EqCdr| - - ;;; Lists - |length1?| |second| - - |ListIsLength?| |ListMemberQ?| |ListMember?| - |ListRemoveQ| |ListNRemoveQ| |ListRemoveDuplicatesQ| |ListNReverse| - |ListUnion| |ListUnionQ| |ListIntersection| |ListIntersectionQ| - |ListAdjoin| |ListAdjoinQ| - - ;;; Association lists - |AlistAssoc| |AlistRemove| - |AlistAssocQ| |AlistRemoveQ| |AlistAdjoinQ| |AlistUnionQ| - - ;;; Tables - |Table?| - |TableCount| |TableGet| |TableSet| |TableUnset| |TableKeys| -)) - -(in-package "BOOT") -(lisp:export '(boot::ncloop boot::ncrecover)) -(lisp:import '(vmlisp::make-input-filename vmlisp::is-console)) -;; (lisp:import '(boot::|openServer|)) -;; (lisp:import '(boot::|sockGetInt|)) -;; (lisp:import '(boot::|sockSendInt|)) -;; (lisp:import '(boot::|sockGetInts|)) -;; (lisp:import '(boot::|sockSendInts|)) -;; (lisp:import '(boot::|sockGetString|)) -;; (lisp:import '(boot::|sockSendString|)) -;; (lisp:import '(boot::|sockGetFloat|)) -;; (lisp:import '(boot::|sockSendFloat|)) -;; (lisp:import '(boot::|sockGetFloats|)) -;; (lisp:import '(boot::|sockSendFloats|)) -;; (lisp:import '(boot::|sockSendWakeup|)) -;; (lisp:import '(boot::|sockSendSignal|)) -(lisp:import '(vmlisp::qsdifference)) -(lisp:import '(vmlisp::qsminusp)) -(lisp:import '(vmlisp::qsplus)) -(lisp:import '(vmlisp::absval)) -(lisp:import '(vmlisp::cgreaterp)) -(lisp:import '(vmlisp::char2num)) -(lisp:import '(vmlisp::charp)) -(lisp:import '(vmlisp::concat)) -(lisp:import '(vmlisp::copy)) -(lisp:import '(vmlisp::difference)) -(lisp:import '(vmlisp::digitp)) -(lisp:import '(vmlisp::divide)) -(lisp:import '(vmlisp::eqcar)) -(lisp:import '(vmlisp::fixp)) -(lisp:import '(vmlisp::greaterp)) -(lisp:import '(vmlisp::hasheq)) -(lisp:import '(vmlisp::hput)) -(lisp:import '(vmlisp::hrem)) -(lisp:import '(vmlisp::identp)) -(lisp:import '(vmlisp::lessp)) -(lisp:import '(vmlisp::ln)) -(lisp:import '(vmlisp::make-cvec)) -(lisp:import '(vmlisp::make-full-cvec)) -(lisp:import '(vmlisp::make-vec)) -#-(or :lispm :lucid) (lisp:import '(vmlisp::memq)) -#+(and :lucid (not :ibm/370)) (lisp:import '(system:memq)) -(lisp:import '(vmlisp::movevec)) -(lisp:import '(vmlisp::pname)) -(lisp:import '(vmlisp::prettyprin0)) -(lisp:import '(vmlisp::prettyprint)) -(lisp:import '(vmlisp::printexp)) -(lisp:import '(vmlisp::qassq)) -(lisp:import '(vmlisp::qcar)) -(lisp:import '(vmlisp::qcdr)) -(lisp:import '(vmlisp::qcaar)) -(lisp:import '(vmlisp::qcadr)) -(lisp:import '(vmlisp::qcdar)) -(lisp:import '(vmlisp::qcddr)) -(lisp:import '(vmlisp::qcaaar)) -(lisp:import '(vmlisp::qcaadr)) -(lisp:import '(vmlisp::qcadar)) -(lisp:import '(vmlisp::qcaddr)) -(lisp:import '(vmlisp::qcdaar)) -(lisp:import '(vmlisp::qcdadr)) -(lisp:import '(vmlisp::qcddar)) -(lisp:import '(vmlisp::qcdddr)) -(lisp:import '(vmlisp::qcaaaar)) -(lisp:import '(vmlisp::qcaaadr)) -(lisp:import '(vmlisp::qcaadar)) -(lisp:import '(vmlisp::qcaaddr)) -(lisp:import '(vmlisp::qcadaar)) -(lisp:import '(vmlisp::qcadadr)) -(lisp:import '(vmlisp::qcaddar)) -(lisp:import '(vmlisp::qcadddr)) -(lisp:import '(vmlisp::qcdaaar)) -(lisp:import '(vmlisp::qcdaadr)) -(lisp:import '(vmlisp::qcdadar)) -(lisp:import '(vmlisp::qcdaddr)) -(lisp:import '(vmlisp::qcddaar)) -(lisp:import '(vmlisp::qcddadr)) -(lisp:import '(vmlisp::qcdddar)) -(lisp:import '(vmlisp::qcddddr)) -(lisp:import '(vmlisp::qcsize)) -(lisp:import '(vmlisp::qenum)) -(lisp:import '(vmlisp::qeset)) -(lisp:import '(vmlisp::qlength)) -(lisp:import '(vmlisp::qmemq)) -(lisp:import '(vmlisp::qsadd1)) -(lisp:import '(vmlisp::qslessp)) -(lisp:import '(vmlisp::qsdec1)) -(lisp:import '(vmlisp::qsetvelt)) -(lisp:import '(vmlisp::qsgreaterp)) -(lisp:import '(vmlisp::qsinc1)) -(lisp:import '(vmlisp::qsmax)) -(lisp:import '(vmlisp::qsmin)) -(lisp:import '(vmlisp::qsoddp)) -(lisp:import '(vmlisp::qsquotient)) -(lisp:import '(vmlisp::qsremainder)) -(lisp:import '(vmlisp::qssub1)) -(lisp:import '(vmlisp::qstimes)) -(lisp:import '(vmlisp::qszerop)) -(lisp:import '(vmlisp::qszerop)) -(lisp:import '(vmlisp::qvelt)) -(lisp:import '(vmlisp::qvsize)) -(lisp:import '(vmlisp::setandfileq)) -(lisp:import '(vmlisp::sintp)) -(lisp:import '(vmlisp::size)) -(lisp:import '(vmlisp::stringimage)) -(lisp:import '(vmlisp::strpos)) -(lisp:import '(vmlisp::strposl)) -(lisp:import '(vmlisp::substring)) -;; (lisp:import '(boot::|error|)) -(lisp:import '(vmlisp::ivecp)) -(lisp:import '(vmlisp::rvecp)) -(lisp:import '(vmlisp::dig2fix)) -(lisp:import '(vmlisp::rnump)) -(lisp:import '(vmlisp::fix)) -(lisp:import '(vmlisp::sortgreaterp)) -(lisp:import '(vmlisp::qsort)) -(lisp:import '(vmlisp::sortby)) -(lisp:import '(vmlisp::make-instream)) -(lisp:import '(vmlisp::list2vec)) -(lisp:import '(vmlisp::vec2list)) -(lisp:import '(vmlisp::sub1)) -(lisp:import '(vmlisp::add1)) -(lisp:import '(vmlisp::neq)) -(lisp:import '(vmlisp::hashtable-class)) -(lisp:import '(vmlisp::maxindex)) -;; (lisp:import '(boot::remdup)) -(lisp:import '(vmlisp::upcase)) -(lisp:import '(vmlisp::downcase)) -(lisp:import '(vmlisp::vecp)) -(lisp:import '(vmlisp::strconc)) -(lisp:import '(vmlisp::defiostream)) -(lisp:import '(vmlisp::shut)) -(lisp:import '(vmlisp::prin2cvec)) -;; (lisp:import '(boot::lasttail)) -;; (lisp:import '(boot::lastpair)) -;; (lisp:import '(boot::lastatom)) -;; (lisp:import '(boot::|last|)) -(lisp:import '(vmlisp::ncons)) -(lisp:import '(vmlisp::rplpair)) -(lisp:import '(vmlisp::nump)) -(lisp:import '(vmlisp::intp)) -(lisp:import '(vmlisp::makeprop)) -(lisp:import '(vmlisp::ifcar)) -(lisp:import '(vmlisp::ifcdr)) -(lisp:import '(vmlisp::quotient)) -(lisp:import '(vmlisp::remainder)) -(lisp:import '(vmlisp::make-hashtable)) -(lisp:import '(vmlisp::hget)) -(lisp:import '(vmlisp::hkeys)) -(lisp:import '(vmlisp::$infilep)) -(lisp:import '(vmlisp::$findfile)) -(lisp:import '(vmlisp::pairp)) -(lisp:import '(vmlisp::cvec)) -(lisp:import '(vmlisp::uequal)) -(lisp:import '(vmlisp::id)) -(lisp:import '(vmlisp::vec-setelt)) -(lisp:import '(vmlisp::make-bvec)) -;; (lisp:import '(boot::bvec-make-full)) -;; (lisp:import '(boot::bvec-setelt)) -(lisp:import '(vmlisp::|shoeread-line|)) -(lisp:import '(vmlisp::|shoeInputFile|)) -(lisp:import '(vmlisp::|shoeConsole|)) -(lisp:import '(vmlisp::|startsId?|)) -(lisp:import '(vmlisp::|idChar?|)) -(lisp:import '(vmlisp::|npPC|)) -(lisp:import '(vmlisp::|npPP|)) -;; (lisp:import '(boot::mkprompt)) -;; (lisp:import '(boot::|fillerSpaces|)) -;; (lisp:import '(boot::|sayString|)) -;; (lisp:import '(boot::help)) -;; (lisp:import '(boot::|version|)) -;; (lisp:import '(boot::|pp|)) -;; (lisp:import '(boot::$dalymode)) - -(lisp:import 'boot::$IEEE) - -(in-package "FOAM") +(defpackage "FOAM-USER" + (:use "FOAM" #.+standard-lisp-package+)) -(lisp:export '( -FOAM::|printDFloat| -FOAM::|printSFloat| -FOAM::|printBInt| -FOAM::|printSInt| -FOAM::|printString| -FOAM::|printChar| -FOAM::|printNewLine| -FOAM::|MakeLit| -FOAM::|EnvNext| -FOAM::|EnvLevel| -FOAM::|MakeEnv| -FOAM::|RElt| -FOAM::|RNew| -FOAM::|DDecl| -FOAM::|ClosFun| -FOAM::|ClosEnv| -FOAM::|CCall| -FOAM::|ArrToBInt| -FOAM::|ArrToSInt| -FOAM::|ArrToDFlo| -FOAM::|ArrToSFlo| -FOAM::|BIntToDFlo| -FOAM::|BIntToSFlo| -FOAM::|SIntToDFlo| -FOAM::|SIntToSFlo| -FOAM::|BIntToSInt| -FOAM::|SIntToBInt| -FOAM::|BitToSInt| -FOAM::|ScanBInt| -FOAM::|ScanSInt| -FOAM::|ScanDFlo| -FOAM::|ScanSFlo| -FOAM::|FormatBInt| -FOAM::|FormatSInt| -FOAM::|FormatDFlo| -FOAM::|FormatSFlo| -FOAM::|PtrEQ| -FOAM::|PtrIsNil| -FOAM::|PtrNil| -FOAM::|BIntBit| -FOAM::|BIntShift| -FOAM::|BIntLength| -FOAM::|BIntPower| -FOAM::|BIntGcd| -FOAM::|BIntDivide| -FOAM::|BIntRem| -FOAM::|BIntQuo| -FOAM::|BIntMod| -FOAM::|BIntTimes| -FOAM::|BIntMinus| -FOAM::|BIntPlus| -FOAM::|BIntInc| -FOAM::|BIntDec| -FOAM::|BIntAbs| -FOAM::|BIntNegate| -FOAM::|BIntNE| -FOAM::|BIntGT| -FOAM::|BIntEQ| -FOAM::|BIntLE| -FOAM::|BIntIsSmall| -FOAM::|BIntIsOdd| -FOAM::|BIntIsEven| -FOAM::|BIntIsPos| -FOAM::|BIntIsNeg| -FOAM::|BIntIsZero| -FOAM::|BInt1| -FOAM::|BInt0| -FOAM::|SIntOr| -FOAM::|SIntAnd| -FOAM::|SIntNot| -FOAM::|SIntBit| -FOAM::|SIntShift| -FOAM::|SIntLength| -FOAM::|SIntTimesMod| -FOAM::|SIntMinusMod| -FOAM::|SIntPlusMod| -FOAM::|SIntPower| -FOAM::|SIntGcd| -FOAM::|SIntDivide| -FOAM::|SIntRem| -FOAM::|SIntQuo| -FOAM::|SIntMod| -FOAM::|SIntTimes| -FOAM::|SIntMinus| -FOAM::|SIntPlus| -FOAM::|SIntInc| -FOAM::|SIntDec| -FOAM::|SIntNegate| -FOAM::|SIntNE| -FOAM::|SIntGT| -FOAM::|SIntEQ| -FOAM::|SIntLE| -FOAM::|SIntIsOdd| -FOAM::|SIntIsEven| -FOAM::|SIntIsPos| -FOAM::|SIntIsNeg| -FOAM::|SIntIsZero| -FOAM::|SIntMax| -FOAM::|SIntMin| -FOAM::|SInt1| -FOAM::|SInt0| -FOAM::|HIntMax| -FOAM::|HIntMin| -FOAM::|HInt1| -FOAM::|HInt0| -FOAM::|ByteMax| -FOAM::|ByteMin| -FOAM::|Byte1| -FOAM::|Byte0| -FOAM::|DFloCeiling| -FOAM::|DFloFloor| -FOAM::|DFloTruncate| -FOAM::|DFloRound| -FOAM::|DFloIPower| -FOAM::|DFloPower| -FOAM::|DFloDivide| -FOAM::|DFloTimes| -FOAM::|DFloMinus| -FOAM::|DFloPlus| -FOAM::|DFloNegate| -FOAM::OTHER-FORM -FOAM::|DFloNE| -FOAM::|DFloGT| -FOAM::|DFloEQ| -FOAM::|DFloLE| -FOAM::|DFloIsPos| -FOAM::|DFloIsNeg| -FOAM::|DFloIsZero| -FOAM::|DFloEpsilon| -FOAM::|DFloMax| -FOAM::|DFloMin| -FOAM::|DFlo1| -FOAM::|DFlo0| -FOAM::|SFloCeiling| -FOAM::|SFloFloor| -FOAM::|SFloTruncate| -FOAM::|SFloRound| -FOAM::|SFloIPower| -FOAM::|SFloPower| -FOAM::|SFloDivide| -FOAM::|SFloTimes| -FOAM::|SFloMinus| -FOAM::|SFloPlus| -FOAM::|SFloNegate| -FOAM::|SFloNE| -FOAM::|SFloGT| -FOAM::|SFloEQ| -FOAM::|SFloLE| -FOAM::|SFloIsPos| -FOAM::|SFloIsNeg| -FOAM::|SFloIsZero| -FOAM::|SFloEpsilon| -FOAM::|SFloMax| -FOAM::|SFloMin| -FOAM::|SFlo1| -FOAM::|SFlo0| -FOAM::|CharNum| -FOAM::|CharOrd| -FOAM::|CharUpper| -FOAM::|CharLower| -FOAM::|CharNE| -FOAM::|CharGT| -FOAM::|CharEQ| -FOAM::|CharLE| -FOAM::|CharIsLetter| -FOAM::|CharIsDigit| -FOAM::|CharMax| -FOAM::|CharMin| -FOAM::|CharNewline| -FOAM::|CharSpace| -FOAM::|BitNE| -FOAM::|BitEQ| -FOAM::|BitOr| -FOAM::|BitAnd| -FOAM::|BitNot| -FOAM::|BitTrue| -FOAM::|BitFalse| -FOAM::|Clos| -FOAM::COMPILE-AS-FILE -FOAM::|FormatNumber| -FOAM::AXIOMXL-GLOBAL-NAME -FOAM::AXIOMXL-FILE-INIT-NAME -FOAM::|BIntPrev| -FOAM::|BIntLT| -FOAM::|BIntIsSingle| -FOAM::|SIntShiftDn| -FOAM::|SIntShiftUp| -FOAM::|SIntTimesPlus| -FOAM::|SIntNext| -FOAM::|SIntPrev| -FOAM::|SIntLT| -FOAM::|DFloAssemble| -FOAM::|DFloDissemble| -FOAM::|DFloRDivide| -FOAM::|DFloRTimesPlus| -FOAM::|DFloRTimes| -FOAM::|DFloRMinus| -FOAM::|DFloRPlus| -FOAM::|DFloTimesPlus| -FOAM::|DFloNext| -FOAM::|DFloPrev| -FOAM::|DFloLT| -FOAM::|SFloAssemble| -FOAM::|fiStrHash| -FOAM::|SFloDissemble| -FOAM::|SFloRDivide| -FOAM::|SFloRTimesPlus| -FOAM::|SFloRTimes| -FOAM::|fiGetDebugger| -FOAM::|SFloRMinus| -FOAM::|fiSetDebugger| -FOAM::|SFloRPlus| -FOAM::|SFloTimesPlus| -FOAM::|fiGetDebugVar| -FOAM::|SFloNext| -FOAM::|fiSetDebugVar| -FOAM::|SFloPrev| -FOAM::|atan2| -FOAM::|SFloLT| -FOAM::|atan| -FOAM::|acos| -FOAM::|CharLT| -FOAM::|asin| -FOAM::|BoolNE| -FOAM::|tanh| -FOAM::|BoolEQ| -FOAM::|cosh| -FOAM::|BoolOr| -FOAM::|sinh| -FOAM::|BoolAnd| -FOAM::|tan| -FOAM::|BoolNot| -FOAM::|cos| -FOAM::|sin| -FOAM::|BoolTrue| -FOAM::|exp| -FOAM::|BoolFalse| -FOAM::|log| -FOAM::|pow| -FOAM::|sqrt| -FOAM::|fputs| -FOAM::|fputc| -FOAM::|stderrFile| -FOAM::|stdoutFile| -FOAM::|stdinFile| -FOAM::|SetProgHashCode| -FOAM::|ProgHashCode| -FOAM::|formatDFloat| -FOAM::|formatSFloat| -FOAM::|formatBInt| -FOAM::|formatSInt| -FOAM::|strLength| -FOAM::|MakeLevel| -FOAM::|FoamEnvEnsure| -FOAM::|SetEnvInfo| -FOAM::|EnvInfo| -FOAM::|SInt| -FOAM::TYPED-LET -FOAM::FILE-IMPORTS -FOAM::FILE-EXPORTS -FOAM::DEFSPECIALS -FOAM::BLOCK-RETURN -FOAM::CASES -FOAM::IGNORE-VAR -FOAM::DEFPROG -FOAM::DECLARE-TYPE -FOAM::DECLARE-PROG -FOAM::|FoamFree| -FOAM::|SetEElt| -FOAM::|SetAElt| -FOAM::|SetRElt| -FOAM::|SetLex| -FOAM::|Lex| -FOAM::|AElt| -FOAM::|EElt| -FOAM::|ANew| -FOAM::|SetClosFun| -FOAM::|SetClosEnv| -FOAM::|Halt| -FOAM::|BoolToSInt| -FOAM::|SIntToHInt| -FOAM::|SIntToByte| -FOAM::|ByteToSInt| -FOAM::|fputss| -FOAM::|fgetss| -FOAM::|PtrNE| -FOAM::|PtrMagicEQ| -FOAM::|BIntShiftDn| -FOAM::|BIntShiftUp| -FOAM::|BIntBIPower| -FOAM::|BIntSIPower| -FOAM::|BIntTimesPlus| -FOAM::|BIntNext| -)) @ \section{License} <>= diff --git a/src/interp/topics.boot.pamphlet b/src/interp/topics.boot.pamphlet index 6946bda..fce397e 100644 --- a/src/interp/topics.boot.pamphlet +++ b/src/interp/topics.boot.pamphlet @@ -86,7 +86,7 @@ mkTopicHashTable() == --given $groupAssoc = ((extended . for item in items repeat HPUT($defaultsHash,item,[kind,:HGET($defaultsHash,item)]) $conTopicHash := MAKE_-HASHTABLE 'EQL --key is constructor name; value is - instream := OPEN '"topics.data" + instream := OPEN '"../../int/algebra/topics.data" while not EOFP instream repeat line := READLINE instream while blankLine? line repeat line := READLINE instream diff --git a/src/interp/unlisp.lisp.pamphlet b/src/interp/unlisp.lisp.pamphlet index efd1e9d..894dad9 100644 --- a/src/interp/unlisp.lisp.pamphlet +++ b/src/interp/unlisp.lisp.pamphlet @@ -140,7 +140,7 @@ The following functions are provided: (defun c-to-lisp-string (ptr) (let (str len) (setq len (strlen ptr)) - (setq str (make-array (list len) :element-type 'string-char)) + (setq str (make-array (list len) :element-type 'standard-char)) (sprintf str "%s" ptr) ; Cannot use strcpy because it stops in a \0. str )) ) @@ -886,7 +886,7 @@ The following functions are provided: (defun |FullString| (size &optional (init #\Space)) (make-array (list size) - :element-type 'string-char + :element-type 'standard-char :initial-element init )) (defun |ToString| (ob) diff --git a/src/interp/util.lisp.pamphlet b/src/interp/util.lisp.pamphlet index 85dac2f..d1881b9 100644 --- a/src/interp/util.lisp.pamphlet +++ b/src/interp/util.lisp.pamphlet @@ -45,7 +45,6 @@ loaded. (in-package "BOOT") (push :oldboot *features*) (mapcar #'load load-files) - (make-depsys lsp src int obj mnt sys) (initroot spad) #+:AKCL (init-memory-config :cons 1000 :fixnum 400 :symbol 1000 :package 16 diff --git a/src/interp/vmlisp.lisp.pamphlet b/src/interp/vmlisp.lisp.pamphlet index 7247d7a..fe3cf7a 100644 --- a/src/interp/vmlisp.lisp.pamphlet +++ b/src/interp/vmlisp.lisp.pamphlet @@ -334,7 +334,7 @@ Contributed by Juergen Weiss. (defmacro maxindex (x) `(the fixnum (1- (the fixnum (length ,x))))) -#-(or LispM Lucid :CCL) +#-(or LispM Lucid :CCL :GCL) (defmacro memq (a b) `(member ,a ,b :test #'eq)) @@ -1186,7 +1186,7 @@ can be restored. (define-function 'strconc #'concat) -(defun make-cvec (sint) (make-array sint :fill-pointer 0 :element-type 'string-char)) +(defun make-cvec (sint) (make-array sint :fill-pointer 0 :element-type 'standard-char)) ;(define-function 'CVECP #'stringp)