Update of /project/phemlock/cvsroot/phemlock/src In directory common-lisp.net:/tmp/cvs-serv10336/src
Modified Files: echo.lisp font.lisp Log Message: Replaced most trivial defsetf with a corresponding (defun (setf ...) ...)
Date: Tue Aug 10 05:47:05 2004 Author: rstrandh
Index: phemlock/src/echo.lisp diff -u phemlock/src/echo.lisp:1.3 phemlock/src/echo.lisp:1.4 --- phemlock/src/echo.lisp:1.3 Mon Aug 9 22:58:03 2004 +++ phemlock/src/echo.lisp Tue Aug 10 05:47:04 2004 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; #+CMU (ext:file-comment - "$Header: /project/phemlock/cvsroot/phemlock/src/echo.lisp,v 1.3 2004/08/10 05:58:03 rstrandh Exp $") + "$Header: /project/phemlock/cvsroot/phemlock/src/echo.lisp,v 1.4 2004/08/10 12:47:04 rstrandh Exp $") ;;; ;;; ********************************************************************** ;;; @@ -599,7 +599,8 @@ ;;; Add or remove a logical key-event link by adding to or deleting from ;;; the list in the from-char hashtable and the descriptor. ;;; -(defun %set-logical-key-event-p (key-event keyword new-value) +(defun (setf logical-key-event-p) (new-value key-event keyword) + "Change what Logical-Char= returns for the specified arguments." (let ((entry (get-logical-key-event-desc keyword))) (cond (new-value
Index: phemlock/src/font.lisp diff -u phemlock/src/font.lisp:1.1.1.1 phemlock/src/font.lisp:1.2 --- phemlock/src/font.lisp:1.1.1.1 Fri Jul 9 06:37:45 2004 +++ phemlock/src/font.lisp Tue Aug 10 05:47:04 2004 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; #+CMU (ext:file-comment - "$Header: /project/phemlock/cvsroot/phemlock/src/font.lisp,v 1.1.1.1 2004/07/09 13:37:45 gbaumann Exp $") + "$Header: /project/phemlock/cvsroot/phemlock/src/font.lisp,v 1.2 2004/08/10 12:47:04 rstrandh Exp $") ;;; ;;; ********************************************************************** ;;; @@ -94,7 +94,8 @@ "Returns a font id for window and font." (svref (font-family-map (bitmap-hunk-font-family (window-hunk window))) font))
-(defun %set-window-font (window font font-object) +(defun (setf window-font) (font-object window font) + "Change the font-object associated with a font-number in a window." (unless (and (>= font 0) (< font font-map-size)) (error "Font number ~S out of range." font)) (setf (bitmap-hunk-trashed (window-hunk window)) :font-change) @@ -109,7 +110,8 @@ "Returns the font id for font out of the default font family." (svref (font-family-map *default-font-family*) font))
-(defun %set-default-font (font font-object) +(defun (setf default-font) (font-object font) + "Change the font-object associated with a font-number in new windows." (unless (and (>= font 0) (< font font-map-size)) (error "Font number ~S out of range." font)) (dolist (w *window-list*)