mmarco/kenzo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Slot options must include a slot init form

Browse Source
This commit is contained in:
gheber 2014-12-25 21:41:54 -06:00
parent e1b2373a40
commit c21253dd13
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/classes.lisp
View File

@ -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))