Update of /cvsroot/portableaserve/portableaserve/acl-compat
In directory usw-pr-cvs1:/tmp/cvs-serv16241/acl-compat
Modified Files:
acl-compat.asd
Log Message:
Add reader conditional on .asd fiels so that they are only loaded on compatible platforms
Index: acl-compat.asd
===================================================================
RCS file: /cvsroot/portableaserve/portableaserve/acl-compat/acl-compat.asd,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -w -r1.8 -r1.9
--- acl-compat.asd 16 Oct 2002 07:44:35 -0000 1.8
+++ acl-compat.asd 16 Oct 2002 08:03:42 -0000 1.9
@@ -146,6 +146,7 @@
(pushnew :acl-compat cl:*features*))
)
+#+(or lispworks cmu mcl openmcl)
(when (ignore-errors (find-class 'load-compiled-op))
(defmethod perform :after ((op load-compiled-op) (c (eql (find-system 'acl-compat))))
(pushnew :acl-compat cl:*features*)))
|