[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv26849/Drei

Modified Files:
	lisp-syntax.lisp 
Log Message:
Fixed bit-vectors.


--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2006/11/21 23:28:07	1.5
+++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2006/11/22 13:50:44	1.6
@@ -384,7 +384,7 @@
 (defclass structure-start-lexeme (lisp-lexeme) ())
 (defclass pathname-start-lexeme (lisp-lexeme) ())
 (defclass undefined-reader-macro-lexeme (lisp-lexeme) ())
-(defclass bit-vector-lexeme (form-lexeme) ())
+(defclass bit-vector-form (form-lexeme complete-form-mixin) ())
 (defclass number-lexeme (form-lexeme complete-form-mixin) ())
 (defclass token-mixin () ())
 (defclass literal-object-lexeme (form-lexeme) ())
@@ -475,7 +475,7 @@
 			       (if (and (not (end-of-buffer-p scan))
 					(constituentp (object-after scan)))
 				   (make-instance 'error-lexeme)
-				   (make-instance 'bit-vector-lexeme)))
+				   (make-instance 'bit-vector-form)))
 			  (#\: (fo)
 			       (make-instance 'uninterned-symbol-lexeme))
 			  (#\. (fo)
@@ -2636,6 +2636,10 @@
 (defmethod token-to-object ((syntax lisp-syntax) (token complete-function-form) &rest args &key &allow-other-keys)
   (fdefinition (apply #'token-to-object syntax (second (children token)) args)))
 
+(defmethod token-to-object ((syntax lisp-syntax) (token bit-vector-form)
+                            &key &allow-other-keys)
+  (read-from-string (token-string syntax token)))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
 ;;; Arglist fetching.