GBB in ACL

[Cuno Duursma <cduursma@cen.jrc.it>]

Background:

We are trying to use the generic Blackboard System (GBB) as as developed at the
Department of Computer and Information Science (COINS), University of 
Massachusetts, Amherst.

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
Lisp. 

Problem:

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
(:conc-name "labelset-"))
- 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.
 
T
<acl>: (load-gbb)
 
;;; Loading /usr2/allegro_cl/gbb/v-120/distribution/generic-extensions.fasl
 
;;; loading (...)
 
NIL
<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
function.

Restart actions (select using :continue):
 0: prompt for a new function, instead of `GBB::LABELSET-ALIST'.
[1c] <acl>:

AT this moment the stack is:

[1c] <acl>: :to


 ->(CERROR "prompt for a new function, instead of `~s'." "attempt to call
`~s' w
hich is an undefined function." ...)
   (NIL)
   (GENERIC-BLACKBOARD::SET-LABEL-INDEX
#s(GENERIC-BLACKBOARD::LABELSET-TABLE :T
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
:TIME 0>
 #<ORDERED-DIMENSION :X 0> #<ORDERED-DIMENSION :Y 0> ...) ...)
   (APPLY #<Function CREATE-UMI @ #x1105a26> ((:TYPE :GROUPS) (# # # ...)
(SPACE
1)))
   (SETQ (GENERIC-BLACKBOARD::UMI-LIST (CONS #
GENERIC-BLACKBOARD::UMI-LIST)))

. more older frames ...

Solution?

Perhaps someone wrote already an allegro-extensions.lisp?



Hard/Software used:
Sun sparc station 1
Unix 4.0.3
Allgro CL 3.1.beta.22 [SUN4] (6/8/89) + common windows + composer (X11
version)