[Phemlock-cvs] CVS update: phemlock/src/bitmap/bit-screen.lisp

Robert Strandh rstrandh at common-lisp.net
Tue Aug 10 12:47:07 UTC 2004


Update of /project/phemlock/cvsroot/phemlock/src/bitmap
In directory common-lisp.net:/tmp/cvs-serv10336/src/bitmap

Modified Files:
	bit-screen.lisp 
Log Message:
Replaced most trivial defsetf with a corresponding (defun (setf ...) ...)


Date: Tue Aug 10 05:47:06 2004
Author: rstrandh

Index: phemlock/src/bitmap/bit-screen.lisp
diff -u phemlock/src/bitmap/bit-screen.lisp:1.1.1.1 phemlock/src/bitmap/bit-screen.lisp:1.2
--- phemlock/src/bitmap/bit-screen.lisp:1.1.1.1	Fri Jul  9 06:37:58 2004
+++ phemlock/src/bitmap/bit-screen.lisp	Tue Aug 10 05:47:06 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/bitmap/bit-screen.lisp,v 1.1.1.1 2004/07/09 13:37:58 gbaumann Exp $")
+  "$Header: /project/phemlock/cvsroot/phemlock/src/bitmap/bit-screen.lisp,v 1.2 2004/08/10 12:47:06 rstrandh Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1123,19 +1123,19 @@
 
 ;;;; Setting window width and height.
 
-;;; %SET-WINDOW-WIDTH  --  Internal
+;;; (SETF WINDOW-WIDTH)  --  Internal
 ;;;
 ;;;    Since we don't support non-full-width windows, this does nothing.
 ;;;
-(defun %set-window-width (window new-value)
+(defun (setf window-width) (new-value window)
   (declare (ignore window))
   new-value)
 
-;;; %SET-WINDOW-HEIGHT  --  Internal
+;;; (SETF WINDOW-HEIGHT)  --  Internal
 ;;;
 ;;;    Can't change window height either.
 ;;;
-(defun %set-window-height (window new-value)
+(defun (setf window-height) (new-value window)
   (declare (ignore window))
   new-value)
 





More information about the Phemlock-cvs mailing list