[unix-history] / 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)))
Commit	Line	Data
3d6d4647 C	1	; program to determine the special atoms
	2	(setq specs (mapcan '(lambda (x) (cond ((and (not (getd x))
	3	(boundp x))
	4	(ncons x))
	5	(t nil)))
	6	(oblist)))