[wadalabfont-kit] / skeleton-edit / etc.l

Annotation of /skeleton-edit/etc.l

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 :