Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv22805
Modified Files: lisp-syntax.lisp Log Message: Made some more forms be complete.
--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2007/02/06 09:38:29 1.22 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2007/02/06 10:03:16 1.23 @@ -1142,7 +1142,7 @@ ;;;;;;;;;;;;;;;; uninterned symbol
;;; parse trees -(defclass uninterned-symbol-form (form) ()) +(defclass uninterned-symbol-form (form complete-form-mixin) ())
(define-parser-state |#: | (form-may-follow) ()) (define-parser-state |#: form | (lexer-toplevel-state parser-state) ()) @@ -1157,7 +1157,7 @@ ;;;;;;;;;;;;;;;; readtime evaluation
;;; parse trees -(defclass readtime-evaluation-form (form) ()) +(defclass readtime-evaluation-form (form complete-form-mixin) ())
(define-parser-state |#. | (form-may-follow) ()) (define-parser-state |#. form | (lexer-toplevel-state parser-state) ()) @@ -1173,7 +1173,7 @@ ;;;;;;;;;;;;;;;; sharpsign equals
;;; parse trees -(defclass sharpsign-equals-form (form) ()) +(defclass sharpsign-equals-form (form complete-form-mixin) ())
(define-parser-state |#= | (form-may-follow) ()) (define-parser-state |#= form | (lexer-toplevel-state parser-state) ()) @@ -1189,7 +1189,7 @@ ;;;;;;;;;;;;;;;; array
;;; parse trees -(defclass array-form (form) ()) +(defclass array-form (form complete-form-mixin) ())
(define-parser-state |#A | (form-may-follow) ()) (define-parser-state |#A form | (lexer-toplevel-state parser-state) ()) @@ -1251,7 +1251,7 @@ ;;;;;;;;;;;;;;;; undefined reader macro
;;; parse trees -(defclass undefined-reader-macro-form (form) ()) +(defclass undefined-reader-macro-form (form complete-form-mixin) ())
(define-parser-state |#<other> | (form-may-follow) ()) (define-parser-state |#<other> form | (lexer-toplevel-state parser-state) ())