|
From: Robert D. <rob...@gm...> - 2014-04-15 15:42:26
|
On 2014-04-15, Barton Willis <wi...@un...> wrote: > (defun $prepare_for_qepcad () > (setf (get '%and 'strsym) '(#\ #\/ #\\ #\ )) ;; <--- GCL and CCL both think something is wrong here > (setf (get '%or 'strsym) '(#\ #\\ #\/ #\ )) Maybe the first and last characters want to be #\Space. Just guessing. Maybe it's simpler and clearer to write (setf (...) (coerce " /\ " 'list)) (setf (...) (coerce " \/ " 'list)) ?? best Robert Dodier |