aboutsummaryrefslogtreecommitdiff
path: root/src/interp/lisplib.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/lisplib.boot')
-rw-r--r--src/interp/lisplib.boot4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot
index a65d6f4a..9f5279b2 100644
--- a/src/interp/lisplib.boot
+++ b/src/interp/lisplib.boot
@@ -358,7 +358,7 @@ makeConstructorsAutoLoad() ==
systemDependentMkAutoload(getConstructorAbbreviationFromDB cnam,cnam)
systemDependentMkAutoload(fn,cnam) ==
- FBOUNDP cnam => "next"
+ functionSymbol? cnam => "next"
symbolFunction(cnam) := mkAutoLoad cnam
mkAutoLoad ctor ==
@@ -444,7 +444,7 @@ compDefineLisplib(df:=["DEF",[op,:.],:.],m,e,fal,fn) ==
if ok then lisplibDoRename(libName)
filearg := $FILEP(libName,$spadLibFT,$libraryDirectory)
RPACKFILE filearg
- FRESH_-LINE $algebraOutputStream
+ freshLine $algebraOutputStream
sayMSG fillerSpaces(72,char "-")
unloadOneConstructor op
$buildingSystemAlgebra => res