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 ,@args) + #+(and cmu #.(cl:if (cl:find-package "CALLBACK") '(and) '(or))) + `(callback:defcallback ,@args) + #+(and cmu #.(cl:if (cl:find-package "CALLBACK") '(or) '(and))) + `(alien:def-callback ,@args) #+sbcl `(defcallback ,@args)) '(defmacro def-c-types (&rest stuff)