[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