Thank you for the advice; yes, symbolp is much better.
(defun $protect (x)
(if (symbolp x)
(putprop x 'neverset 'assign)
(merror "Argument to protect must be a symbol")))
(defun $unprotect (x)
(if (symbolp x) (remprop x 'assign)
(merror "Argument to unprotect must be a symbol")))
Barton
Steve Haflich <smh@franz.com>
01/30/2004 02:35 PM
Please respond to smh
To: Barton Willis <willisb@unk.edu>
cc: lmarquez@cicese.mx, maxima@www.ma.utexas.edu
Subject: Re: [Maxima] Protecting variables
Is atom the right predicate here? In Common Lisp everything except a
cons is an atom. Wouldn't symbolp be more conservative, rather than