Make CHAR-ACCUM-PUSH unknown object proof.

vy · Jul 14, 2007 · fdd2d82 · fdd2d82
1 parent 1a70524
commit fdd2d82
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/meta-sexp.lisp b/meta-sexp.lisp
@@ -129,7 +129,8 @@
   (make-array size :element-type 'character :adjustable t :fill-pointer 0))
 
 (defun char-accum-push (char accum)
-  (vector-push-extend char accum))
+  (if (typep char 'character)
+      (vector-push-extend char accum)))
 
 (defun reset-char-accum (accum)
   (setf (fill-pointer accum) 0))