[lgtk-cvs] CVS update: lgtk/src/port.lisp

[Mario Mommer]

Update of /project/lgtk/cvsroot/lgtk/src
In directory common-lisp.net:/tmp/cvs-serv7476/src

Modified Files:
	port.lisp 
Log Message:
Corrected a small error.

Date: Wed Oct 29 11:51:22 2003
Author: mmommer

Index: lgtk/src/port.lisp
diff -u lgtk/src/port.lisp:1.1.1.1 lgtk/src/port.lisp:1.2
--- lgtk/src/port.lisp:1.1.1.1	Mon Oct 27 14:15:07 2003
+++ lgtk/src/port.lisp	Wed Oct 29 11:51:16 2003
@@ -48,7 +48,7 @@
   (let ((it (cond ((atom key) (cadr (assoc key *c-types*)))
 		  (t (mapcar #'port-alien-type key)))))
     (if it it
-      (warn (format nil "~A not is not an alien type")))))
+      (warn "~A not is not an alien type" key))))
 
 ;; Get the actual pointer number
 (defun alien-address (it)