From c21253dd13a56a4ad98e9234fd5e1a872ec6dc39 Mon Sep 17 00:00:00 2001 From: gheber Date: Thu, 25 Dec 2014 21:41:54 -0600 Subject: [PATCH] Slot options must include a slot init form --- src/classes.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/classes.lisp b/src/classes.lisp index 3f81248..403b1f6 100644 --- a/src/classes.lisp +++ b/src/classes.lisp @@ -17,8 +17,8 @@ ;;; (DEFSTRUCT (CMBN (:print-function cmbn-print)) - (degr #+allegro :type #+allegro fixnum) - (list #+allegro :type #+allegro list)) + (degr -1 :type fixnum) + (list () :type list)) ;; CFFC = CoeFFiCient (DEFUN CFFC-P (object) @@ -494,7 +494,7 @@ (DEFSTRUCT (LOOP (:print-function loop-print)) (list #+allegro :type #+allegro iloop)) - + #+allegro (eval-when (:compile-toplevel :load-toplevel :execute) (setf excl:*enable-package-locked-errors* t)) @@ -512,6 +512,6 @@ ;; (:gbar dmns absm_(m-1) ... absm_1) (DEFSTRUCT (GBAR (:print-function gbar-print)) - (dmns #+allegro :type #+allegro fixnum) - (list #+allegro :type #+allegro list)) + (dmns -1 :type fixnum) + (list () :type list))