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.