X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=mop.lisp;h=1e83ae30e4ab47f2642dd275859fa4ae2bf14a73;hb=c0d7503d6636b6d5adb762258fdb20c1b4ceb53a;hp=960195134da2aa579e99cfc055f4be8b70c9d4d3;hpb=cda49a13fa66d935f4d7db644364cc741b9c1c4c;p=hyperobject.git diff --git a/mop.lisp b/mop.lisp index 9601951..1e83ae3 100644 --- a/mop.lisp +++ b/mop.lisp @@ -11,7 +11,7 @@ ;;;; in Text, HTML, and XML formats. This includes hyperlinking ;;;; capability and sub-objects. ;;;; -;;;; $Id: mop.lisp,v 1.2 2002/11/29 05:05:29 kevin Exp $ +;;;; $Id: mop.lisp,v 1.3 2002/11/29 23:14:31 kevin Exp $ ;;;; ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg ;;;; @@ -40,8 +40,8 @@ (subobjects :initform nil :documentation "List of fields that contain a list of subobjects objects.") - (references :type list :initform nil :documentation - "List of fields that have references") + (hyperlinks :type list :initform nil :documentation + "List of fields that have hyperlinks") (class-id :type integer :initform nil :documentation "Unique ID for the class") @@ -68,13 +68,13 @@ (print-unreadable-object (obj s :type t :identity t) (format s "~S" (name obj)))) -(defclass reference () +(defclass hyperlink () ((name :type symbol :initform nil :initarg :name :reader name) (lookup :type function :initform nil :initarg :lookup :reader lookup) (link-parameters :type list :initform nil :initarg :link-parameters :reader link-parameters))) -(defmethod print-object ((obj reference) (s stream)) +(defmethod print-object ((obj hyperlink) (s stream)) (print-unreadable-object (obj s :type t :identity t) (format s "~S" (name obj)))) @@ -162,7 +162,7 @@ :sql-type sql-type :print-formatter (slot-value dsd 'print-formatter) :subobject (slot-value dsd 'subobject) - :reference (slot-value dsd 'reference) + :hyperlink (slot-value dsd 'hyperlink) :description (slot-value dsd 'description) ia))) ) @@ -291,8 +291,8 @@ (defun hyperobject-class-subobjects (obj) (slot-value (class-of obj) 'subobjects)) -(defun hyperobject-class-references (obj) - (slot-value (class-of obj) 'references)) +(defun hyperobject-class-hyperlinks (obj) + (slot-value (class-of obj) 'hyperlinks)) (defun hyperobject-class-fields (obj) (class-slots (class-of obj)))