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

Annotation of /skeleton-edit/etc.l

Parent Directory | Revision Log

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