Browse files

Make CHAR-ACCUM-PUSH unknown object proof.

  • Loading branch information...
1 parent 1a70524 commit fdd2d82b98205ef9c3b07472a629dd7414e75ebd Volkan YAZICI committed Jul 15, 2007
Showing with 2 additions and 1 deletion.
  1. +2 −1 meta-sexp.lisp
View
3 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))

0 comments on commit fdd2d82

Please sign in to comment.