[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
GBB in ACL
We are trying to use the generic Blackboard System (GBB) as as developed at the
Department of Computer and Information Science (COINS), University of
A set of common lisp extensions have been used in GBB and the delivery
includes implementations of these extensions for Lucid, symbolics and TI
lisp. There is also a file Generic-Extensions that should work for any
Using the generic extentsions.lisp we get the following errors:
The first problem we encountered with loading GBB was the following:
- (compile-gbb) broke on trying to concatenate a string and a symbol in
function process-defstruct-slots in file generic-extensions.lisp. It
appeared that (defstruct (labelset-table (:conc-name labelset-)) ...
caused this problem. We changed it into:(defstruct (labelset-table
- After this it compiled correctly but gave similar problems during loading
in process-defstruct-slot. Therefore we changed the concatenate there into
a concatenate that accepts both strings and symbols. This seemed to solve
compilation problems. However, loading the example file gave the error of
an undefined function:
<acl>: (load "/usr2/allegro_cl/gbb/v-120/distribution/gbb-system")
; Loading /usr2/allegro_cl/gbb/v-120/distribution/gbb-system.lisp.
;;; Loading /usr2/allegro_cl/gbb/v-120/distribution/generic-extensions.fasl
;;; loading (...)
<acl>: (load "/usr2/allegro_cl/gbb/v-120/distribution/examples")
; Loading /usr2/allegro_cl/gbb/v-120/distribution/examples.lisp.
;;; Defining SPACES, BLACKBOARDS, INDEX-STRUCTURES...
;;; Defining UNITS...
;;; Defining the UNIT-MAPPINGS...
Error: attempt to call `GBB::LABELSET-ALIST' which is an undefined
Restart actions (select using :continue):
0: prompt for a new function, instead of `GBB::LABELSET-ALIST'.
AT this moment the stack is:
[1c] <acl>: :to
->(CERROR "prompt for a new function, instead of `~s'." "attempt to call
hich is an undefined function." ...)
EST EQUAL :ALIST (# # # ...)) DOG ...)
(GENERIC-BLACKBOARD::BUILD-GROUPS #<UNIT-MAPPING-INDEX :TYPE 0> NIL ...)
(GENERIC-BLACKBOARD::CREATE-UMI-INTERNAL :TYPE NIL ...)
(GENERIC-BLACKBOARD::CREATE-UMI (:TYPE :GROUPS) (#<ORDERED-DIMENSION
#<ORDERED-DIMENSION :X 0> #<ORDERED-DIMENSION :Y 0> ...) ...)
(APPLY #<Function CREATE-UMI @ #x1105a26> ((:TYPE :GROUPS) (# # # ...)
(SETQ (GENERIC-BLACKBOARD::UMI-LIST (CONS #
. more older frames ...
Perhaps someone wrote already an allegro-extensions.lisp?
Sun sparc station 1
Allgro CL 3.1.beta.22 [SUN4] (6/8/89) + common windows + composer (X11