[movitz-cvs] CVS movitz/losp/x86-pc

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/x86-pc
In directory clnet:/tmp/cvs-serv3749

Modified Files:
	textmode.lisp 
Log Message:
Have macros in the run-time.


--- /project/movitz/cvsroot/movitz/losp/x86-pc/textmode.lisp	2007/04/09 16:05:25	1.17
+++ /project/movitz/cvsroot/movitz/losp/x86-pc/textmode.lisp	2008/03/15 20:58:30	1.18
@@ -9,7 +9,7 @@
 ;;;; Created at:    Thu Nov  9 15:38:56 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: textmode.lisp,v 1.17 2007/04/09 16:05:25 ffjeld Exp $
+;;;; $Id: textmode.lisp,v 1.18 2008/03/15 20:58:30 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -196,7 +196,7 @@
 (defun write-word-bottom3 (word)
   (write-word-lowlevel word #.(cl:+ 140 #xb8000 (cl:* 24 160))))
 
-(defmacro write-word-lowlevel-macro (word dest)
+(define-compiler-macro write-word-lowlevel-macro (word dest)
   (let ((loop-label (make-symbol "write-word-loop"))
 	(l1 (make-symbol "write-word-l1"))
 	(l2 (make-symbol "write-word-l2"))