Plaster
New
List
Login
common-lisp
default
anonymous
2021.03.26 15:01:36
(defun specialp (symbol) (handler-bind ((warning (lambda (c) (declare (ignore c)) (return-from specialp nil))) (error (lambda (c) (declare (ignore c)) (return-from specialp nil)))) (eval `(if (constantp ',symbol) nil (let ((,symbol (if (boundp ',symbol) ,symbol nil))) (declare (ignorable ,symbol)) (boundp ',symbol))))))
Raw
Annotate
Repaste
Edit