;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: hyperobject.asd,v 1.24 2003/05/22 20:40:03 kevin Exp $
+;;;; $Id: hyperobject.asd,v 1.25 2003/06/24 08:32:32 kevin Exp $
;;;; *************************************************************************
(defpackage hyperobject-system (:use #:asdf #:cl))
(in-package :hyperobject-system)
-#+(or allegro lispworks sbcl cmu scl)
+#+(or allegro lispworks sbcl cmu scl openmcl)
(defsystem hyperobject
:name "hyperobject"
:author "Kevin M. Rosenberg <kevin@rosenberg.net>"
)
:depends-on (:kmrcl :clsql))
-#+(or allegro lispworks sbcl cmu scl)
+#+(or allegro lispworks sbcl cmu scl openmcl)
(defmethod perform ((o test-op) (c (eql (find-system :hyperobject))))
(oos 'load-op 'hyperobject-tests)
(oos 'test-op 'hyperobject-tests))
;;;; in Text, HTML, and XML formats. This includes hyperlinking\r
;;;; capability and sub-objects.\r
;;;;\r
-;;;; $Id: mop.lisp,v 1.78 2003/06/20 08:50:38 kevin Exp $\r
+;;;; $Id: mop.lisp,v 1.79 2003/06/24 08:32:32 kevin Exp $\r
;;;;\r
;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg\r
;;;; *************************************************************************\r
(when (and ,required (null value))\r
(error "hyperobject class slot ~A must have a value" name))\r
(list name `',value))\r
- #+(or allegro sbcl cmu scl)\r
+ #+(or allegro sbcl cmu scl openmcl)\r
(declare (ignore slot-name required))\r
)\r
\r
':function (compile nil method-lambda)\r
init-args-values)))))\r
\r
-#+(or allegro scl)\r
+#+(or allegro scl openmcl)\r
(progn\r
;; One entry for each class with lazy readers defined. The value is a plist mapping\r
;; slot-name to a lazy reader, each of which is a list of a function and slot-names.\r
(setf (getf (gethash (find-class class-name) *lazy-readers*) slot-name)\r
nil))\r
\r
- ) ;; #+(or allegro scl)\r
+ ) ;; #+(or allegro sc openmcll)\r
\r
\r
(defun finalize-subobjects (cl)\r
`(hyperobject::def-lazy-reader ,(name-class subobject)\r
,(name-slot subobject) ,(lookup subobject)\r
,@(lookup-keys subobject)))\r
- #+(or sbcl cmu lispworks allegro scl)\r
+ #+(or sbcl cmu lispworks allegro scl openmcl)\r
(apply #'ensure-lazy-reader \r
(name-class subobject) (name-slot subobject)\r
(lookup subobject) (lookup-keys subobject)))\r
;;;; Programmer: Kevin M. Rosenberg\r
;;;; Date Started: Apr 2000\r
;;;;\r
-;;;; $Id: package.lisp,v 1.49 2003/06/06 21:59:29 kevin Exp $\r
+;;;; $Id: package.lisp,v 1.50 2003/06/24 08:32:32 kevin Exp $\r
;;;;\r
;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg\r
;;;; *************************************************************************\r
#+kmr-cmucl-mop #:mop\r
#+allegro #:mop\r
#+lispworks #:clos\r
- #+scl #:clos)\r
+ #+scl #:clos\r
+ #+openmcl #:openmcl-mop)\r
(:export\r
#:package\r
#:hyperobject\r