4.1cBSD/usr/doc/lisp/specatms.l

; program to determine the special atoms
(setq specs (mapcan '(lambda (x) (cond ((and (not (getd x))
					     (boundp x))
					(ncons x))
				       (t nil)))
		    (oblist)))