1 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
5 ;;;; Name: package.lisp
6 ;;;; Purpose: Package definition for hyperobject package
7 ;;;; Programmer: Kevin M. Rosenberg
8 ;;;; Date Started: Apr 2000
12 ;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
13 ;;;; *************************************************************************
15 (in-package #:cl-user)
18 (eval-when (:compile-toplevel :load-toplevel :execute)
19 (if (find-package 'sb-mop)
20 (pushnew :kmr-sbcl-mop cl:*features*)
21 (pushnew :kmr-sbcl-pcl cl:*features*)))
24 (eval-when (:compile-toplevel :load-toplevel :execute)
25 (if (eq (symbol-package 'pcl:find-class)
26 (find-package 'common-lisp))
27 (pushnew :kmr-cmucl-mop cl:*features*)
28 (pushnew :kmr-cmucl-pcl cl:*features*)))
31 (defpackage #:hyperobject
33 (:use #:common-lisp #:kmrcl
34 #+kmr-sbcl-mop #:sb-mop
39 #+openmcl #:openmcl-mop)
44 #:hyperobject-class-user-name
49 #:processed-queued-definitions
55 (defpackage #:hyperobject-user
56 (:nicknames #:ho-user)
57 (:use #:hyperobject #:cl #:cl-user))
60 (eval-when (:compile-toplevel :load-toplevel :execute)
63 '(excl::compute-effective-slot-definition-initargs)
65 '(clos::compute-effective-slot-definition-initargs)
67 '(sb-pcl::compute-effective-slot-definition-initargs)
69 '(sb-pcl:class-of sb-pcl:class-name sb-pcl:class-slots sb-pcl:find-class
70 sb-pcl::standard-class
71 sb-pcl:slot-definition-name sb-pcl::finalize-inheritance
72 sb-pcl::standard-direct-slot-definition
73 sb-pcl::standard-effective-slot-definition sb-pcl::validate-superclass
74 sb-pcl::direct-slot-definition-class sb-pcl::compute-effective-slot-definition
75 sb-pcl::compute-effective-slot-definition-initargs
76 sb-pcl::slot-value-using-class
77 sb-pcl:slot-definition-type
78 sb-pcl:class-prototype sb-pcl:generic-function-method-class sb-pcl:intern-eql-specializer
79 sb-pcl:make-method-lambda sb-pcl:generic-function-lambda-list
80 sb-pcl::class-precedence-list)
82 '(pcl::compute-effective-slot-definition-initargs)
84 '(pcl:class-of pcl:class-name pcl:class-slots pcl:find-class pcl::standard-class
85 pcl::slot-definition-name pcl:finalize-inheritance
86 pcl::standard-direct-slot-definition pcl::standard-effective-slot-definition
87 pcl::validate-superclass pcl:direct-slot-definition-class
88 pcl:compute-effective-slot-definition
89 pcl::compute-effective-slot-definition-initargs
90 pcl::slot-value-using-class
91 pcl:class-prototype pcl:generic-function-method-class pcl:intern-eql-specializer
92 pcl:make-method-lambda pcl:generic-function-lambda-list
93 pcl:slot-definition-type
94 pcl::class-precedence-list)
96 '(clos:class-name clos:class-slots clos:find-class clos::standard-class
97 clos::slot-definition-name clos:finalize-inheritance
98 clos::standard-direct-slot-definition clos::standard-effective-slot-definition
99 clos::validate-superclass clos:direct-slot-definition-class
100 clos:effective-slot-definition-class
101 clos:slot-definition-type
102 clos:compute-effective-slot-definition
103 clos::compute-effective-slot-definition-initargs
104 clos::slot-value-using-class
105 clos:class-prototype clos:generic-function-method-class clos:intern-eql-specializer
106 clos:generic-function-lambda-list
107 clos::class-precedence-list)
109 '(clos::compute-effective-slot-definition-initargs
110 clos::class-prototype
111 clos:slot-definition-type
112 ;; note: make-method-lambda is not fbound
118 (eval-when (:compile-toplevel :load-toplevel :execute)
119 (if (find-package 'sb-mop)
120 (setq cl:*features* (delete :kmr-sbcl-mop cl:*features*))
121 (setq cl:*features* (delete :kmr-sbcl-pcl cl:*features*))))
124 (eval-when (:compile-toplevel :load-toplevel :execute)
125 (if (find-package 'mop)
126 (setq cl:*features* (delete :kmr-cmucl-mop cl:*features*))
127 (setq cl:*features* (delete :kmr-cmucl-pcl cl:*features*))))