View of /lisp/tools/nocompile.l

Parent Directory

Revision Log

*** empty log message ***

;;-------------;;
;; nocompile.l ;;
;;-------------;;

(defmacro push-name-def (name-loc def . body)
  (append `(let ((,(eval name-loc) ,def)))
	  body))

(defun show-temporary-nikuduked-skeletons (win)
  (clear-win win)
  (when (boundp edittee-name)
    (lets ((assq-list (assq edittee-name primitive-reference-table))
	   (shown (if (null assq-list) 
		      nil 
		    (cdr assq-list)))
	   (count 0))
      (push-name-def edittee-name niti
		     (clear-win! win)
		     (catch 'continue
		       (do ((x 0 (+ x 50)))
			   ((>= x 400))
			   (do ((y 0 (+ y 50)))
			       ((>= y 400))
			       (if (endp shown) (throw 'continue))
			       (when (> count 2)
				 (if (not (ask-y-n skeleditor "³¤±¤Þ¤¹"))
				     (throw 'continue))
				 (setq count 0))
			       (when (not (endp shown))
				 (draw-temporary-nikuduked-skeleton-win
				  win
				  (applykanji (car shown))
				  50 50
				  x y)
				 (redisplay-win win)
				 (setq shown (cdr shown)))
			       (setq count (1+ count)))))))))