[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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