Revision: 1.1 - (view) (download)
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 : |
ktanaka Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |