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)