DEFCONSTANT -> DEFINE-CONSTANT

src/bar.lisp

@@ -31,7 +31,7 @@
 (abar 2 'a 3))  ;; error
 |#
 
-#-sbcl (DEFCONSTANT +NULL-ABAR+ (make-abar :list +empty-list+))
+#-sbcl (DEFINE-CONSTANT +NULL-ABAR+ (make-abar :list +empty-list+))
 #+sbcl (DEFPARAMETER +NULL-ABAR+ (make-abar :list +empty-list+))
 
 ;;; -[CLISP

src/classifying-spaces.lisp

@@ -6,7 +6,7 @@
 
 (provide "classifying-spaces")
 
-#-sbcl (DEFCONSTANT +NULL-GBAR+ (make-gbar :dmns 0 :list +empty-list+))
+#-sbcl (DEFINE-CONSTANT +NULL-GBAR+ (make-gbar :dmns 0 :list +empty-list+))
 #+sbcl (DEFPARAMETER +NULL-GBAR+ (make-gbar :dmns 0 :list +empty-list+))
 
 (DEFUN GBAR-PRINT (gbar stream depth)

src/cobar.lisp

@@ -28,7 +28,7 @@
 (allp 2 'a 3))  ;; error
 |#
 
-#-sbcl(DEFCONSTANT +NULL-ALLP+ (make-allp :list +empty-list+))
+#-sbcl (DEFINE-CONSTANT +NULL-ALLP+ (make-allp :list +empty-list+))
 #+sbcl (DEFPARAMETER +NULL-ALLP+ (make-allp :list +empty-list+))
 
 
@@ -45,7 +45,8 @@
                    (format stream "[~D ~A]" degr gnrt)))
       (format stream ">>")
       allp)))
-            
+
+
 (DEFUN COBAR-CMPR (cmpr)
   (declare (type cmprf cmpr))
   (flet ((rslt (allp1 allp2)

src/loop-spaces.lisp

@@ -6,7 +6,7 @@
 
 (PROVIDE "loop-spaces")
 
-#-sbcl (DEFCONSTANT +NULL-LOOP+ (make-loop :list +empty-list+))
+#-sbcl (DEFINE-CONSTANT +NULL-LOOP+ (make-loop :list +empty-list+))
 #+sbcl (DEFPARAMETER +NULL-LOOP+ (make-loop :list +empty-list+))
 
 ;;; NILOOP = non-normalized iloop; a common dgop is possible.