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

[Mario Mommer]

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

Modified Files:
	port.lisp 
Log Message:
Making it backwards compatible with 18e.

Date: Sun Aug  1 12:43:04 2004
Author: mmommer

Index: lgtk/src/port.lisp
diff -u lgtk/src/port.lisp:1.5 lgtk/src/port.lisp:1.6
--- lgtk/src/port.lisp:1.5	Sun Aug  1 11:05:19 2004
+++ lgtk/src/port.lisp	Sun Aug  1 12:43:04 2004
@@ -19,7 +19,10 @@
 (in-package #:clnexus-port)
 
 (defmacro def-callback (&rest args)
-  #+cmu `(alien:def-callback , at args)
+  #+(and cmu #.(cl:if (cl:find-package "CALLBACK") '(and) '(or)))
+  `(callback:defcallback , at args)
+  #+(and cmu #.(cl:if (cl:find-package "CALLBACK") '(or) '(and)))
+  `(alien:def-callback , at args)
   #+sbcl `(defcallback , at args))
 
 '(defmacro def-c-types (&rest stuff)