Changeset 1847

Show
Ignore:
Timestamp:
02/18/06 13:58:11 (3 years ago)
Author:
hhubner
Message:

Save intermediate stage. object.lisp was broken, revert thirdparty changes
due to infeasibility. Remove id3 stuff.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/xml-class-rework/bknr/src/data/object.lisp

    r1831 r1847  
    212212      (error "Can not define a persistent class with metaclass ~A." metaclass)) 
    213213    `(define-bknr-class ,class ,superclasses ,slots 
    214       ,@(unless metaclass '(:metaclass persistent-class)) 
     214      ,@(unless metaclass '((:metaclass persistent-class))) 
    215215      ,@class-options))) 
    216216 

  • branches/xml-class-rework/bknr/src/xml-impex/xml-class.lisp

    r1838 r1847  
    123123  (xml-class-finalize class)) 
    124124 
     125(defmethod xml-class-finalize ((class xml-class)) 
     126  (unless (class-finalized-p class) 
     127    (finalize-inheritance class)) 
     128 
     129  (let ((slots (class-slots class)) 
     130        (elmdef (xml-class-element class))) 
     131 
     132    slots)) 
     133 
     134 
    125135(defmethod direct-slot-definition-class ((class xml-class) &key parent attribute element body &allow-other-keys) 
    126136  (if (or attribute element body parent) 

  • branches/xml-class-rework/modules/bknr-modules.asd

    r1761 r1847  
    3030                 :klammerscript 
    3131                 #+(not allegro) 
    32                  :acl-compat 
    33                  :bknr-id3) 
     32                 :acl-compat) 
    3433 
    3534    :components ((:file "packages") 

  • branches/xml-class-rework/modules/packages.lisp

    r1569 r1847  
    77        :net.aserve 
    88        :puri 
    9         :bknr.id3 
    109        :bknr.rss 
    1110        :bknr.utils 

  • branches/xml-class-rework/tools/make-core.lisp

    r1841 r1847  
    77(defparameter *src-directory* (make-pathname :directory (pathname-directory *load-truename*))) 
    88(defparameter *bknr-directory* (merge-pathnames #p"bknr-svn/" (user-homedir-pathname))) 
    9 (defparameter *central-repository* (merge-pathnames #p"central-repository/" (user-homedir-pathname))) 
    109 
    1110#+cmu #-cmu19b