;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: hyperobject.asd,v 1.19 2003/04/03 17:01:17 kevin Exp $
+;;;; $Id: hyperobject.asd,v 1.20 2003/04/25 04:53:52 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;; *************************************************************************
(defsystem :hyperobject
:name "cl-hyperobject"
:author "Kevin M. Rosenberg <kevin@rosenberg.net>"
- :version "2.6.0"
+ :version "2.6.x"
:maintainer "Kevin M. Rosenberg <kmr@debian.org>"
:licence "BSD-like License"
- :perform (load-op :after (op hyperobject)
- (pushnew :hyperobject cl:*features*))
- :components
- ((:file "package")
- (:file "metaclass" :depends-on ("package"))
- (:file "mop" :depends-on ("metaclass"))
- (:file "rules" :depends-on ("mop"))
- (:file "connect" :depends-on ("mop"))
- (:file "sql" :depends-on ("connect"))
- (:file "views" :depends-on ("mop"))
- (:file "base-class" :depends-on ("views" "sql" "rules"))
- (:file "wrapper" :depends-on ("base-class"))
- )
- :depends-on (:kmrcl :clsql))
+ :components
+ ((:file "package")
+ (:file "metaclass" :depends-on ("package"))
+ (:file "mop" :depends-on ("metaclass"))
+ (:file "rules" :depends-on ("mop"))
+ (:file "connect" :depends-on ("mop"))
+ (:file "sql" :depends-on ("connect"))
+ (:file "views" :depends-on ("mop"))
+ (:file "base-class" :depends-on ("views" "sql" "rules"))
+ (:file "wrapper" :depends-on ("base-class"))
+ )
+ :depends-on (:kmrcl :clsql))
;;;; in Text, HTML, and XML formats. This includes hyperlinking
;;;; capability and sub-objects.
;;;;
-;;;; $Id: mop.lisp,v 1.61 2003/04/22 14:19:08 kevin Exp $
+;;;; $Id: mop.lisp,v 1.62 2003/04/25 04:53:52 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
(defclass hyperlink ()
((name :type symbol :initform nil :initarg :name :reader name)
- (lookup :type (or function symbol) :initform nil :initarg :lookup :reader lookup)
+ (lookup
+ ;; The type specifier seems to break sbcl
+ ;; :type (or function symbol)
+ :initform nil :initarg :lookup :reader lookup)
(link-parameters :type list :initform nil :initarg :link-parameters
:reader link-parameters)))