| 1 : |
ktanaka |
1.1 |
;; |
| 2 : |
|
|
;; etc.l |
| 3 : |
|
|
;; |
| 4 : |
|
|
|
| 5 : |
|
|
(defmacro undeclare (l type) |
| 6 : |
|
|
(or (memq type |
| 7 : |
|
|
'(special redefine fix-result fix-value nogc string-result fixnum |
| 8 : |
|
|
vector string lppeval)) |
| 9 : |
|
|
(funcall err:argument-type type 'declare)) |
| 10 : |
|
|
`(lets ((type ',type)) |
| 11 : |
|
|
(mapc ',l (function (lambda (x) (remprop x type)))))) |
| 12 : |
|
|
|
| 13 : |
|
|
(defun pr-assumed-special () |
| 14 : |
|
|
(do ((l (oblist) (cdr l)) |
| 15 : |
|
|
(ret)) |
| 16 : |
|
|
((atom l) (nreverse ret)) |
| 17 : |
|
|
(cond ((eq (get (car l) 'special) 'assumed) |
| 18 : |
|
|
(push (car l) ret))))) |
| 19 : |
|
|
|
| 20 : |
|
|
(defun delete-all-special () |
| 21 : |
|
|
(mapcar (oblist) #'(lambda (x) (remprop x 'special)))) |
| 22 : |
|
|
|
| 23 : |
|
|
(defun clear-event (display) |
| 24 : |
|
|
(setf (display-event-queue-head display) nil) |
| 25 : |
|
|
(setf (display-event-queue-tail display) nil)) |
| 26 : |
|
|
|
Annotation of /lisp/tools/etc.l
Parent Directory
| 
Revision Log