;;; -*- Mode:LISP; Package:SYSTEM-INTERNALS; Readtable:ZL; Base:10; COLD-LOAD: T -*-

(unintern 'foo1)
(setf (plist 'foo1) nil)

(DEFUN (:PROPERTY foo1 SPECIAL-FORM-BOOTSTRAP) (FORM)
  (MAPC (LAMBDA (X) (SETF (GET X 'SPECIAL) T))
	(CDR FORM))
  T)

(describe 'foo1)
(print (function-spec-get '(:property foo special-form-bootstrap) :source-file-name))

;;;
(unintern 'foo2)
(setf (plist 'foo2) nil)

(DEFUN (:PROPERTY foo2 SPECIAL-FORM-BOOSTRAP) (FORM)
  (MAPC (LAMBDA (X) (REMPROP X 'SPECIAL))
	(CDR FORM))
  T)

(describe 'foo2)
(print (function-spec-get '(:property foo2 special-form-bootstrap) :source-file-name))