From fdd2d82b98205ef9c3b07472a629dd7414e75ebd Mon Sep 17 00:00:00 2001 From: Volkan YAZICI Date: Sun, 15 Jul 2007 00:03:08 +0300 Subject: [PATCH] Make CHAR-ACCUM-PUSH unknown object proof. --- meta-sexp.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/meta-sexp.lisp b/meta-sexp.lisp index 7a4112e..a321468 100644 --- 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))