[Phemlock-cvs] CVS update: phemlock/src/echo.lisp phemlock/src/font.lisp - phemlock-cvs@common-lisp.net - mailman3.common-lisp.net

10 Aug 2004

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*)

    