[Gcl-devel] CLCS - internal-program-error class not defined.

[Mike Thomas]

Hi Camm/Paul.

With respect to the stable branch:

While building starlisp with my brand spanking new GCL I got the error
below.

Putting aside the starlisp code the file "clcs_kcl_cond.lisp" refers to an
"internal-program-error" which is not defined in
"clcs_condition_definitions.lisp", which file defines every other kind of
error condition you could think of.

I know nothing about the conditions system and I'm pressed for time so I
thought I'd leave this with you.

Cheers

MIke Thomas



Compiling C:/lang/source/gcl/starsim-jpm/f20/address-objects.lisp.
Error in LET [or a callee]: No class named:
CONDITIONS::INTERNAL-PROGRAM-ERROR.

Fast links are on: do (use-fast-links nil) for debugging
Broken at CONDITIONS::CLCS-UNIVERSAL-ERROR-HANDLER.  Type :H for Help.
 1 (Continue) (SYSTEM:ERROR-SET
                  '(EVAL '(IF (< *MAXIMUM-NUMBER-OF-DIMENSIONS* 0)
                              (LET ((J 0))
                                (DECLARE (FIXNUM J) (IGNORABLE J))
                                NIL)
                              (IF (<= *MAXIMUM-NUMBER-OF-DIMENSIONS*
                                      MOST-POSITIVE-FIXNUM)
                                  (LET ((*MAXIMUM-NUMBER-OF-DIMENSIONS*
                                         *MAXIMUM-NUMBER-OF-DIMENSIONS*))
                                    (DECLARE
                                     (FIXNUM
                                      *MAXIMUM-NUMBER-OF-DIMENSIONS*))
                                    (DO* ((J 0 (1+ J)))
                                     ((>= J
                                       *MAXIMUM-NUMBER-OF-DIMENSIONS*)
                                      NIL)
                                      (DECLARE (FIXNUM J))
                                      (SETF
                                       (AREF *ARRAY-OF-TEMP-LISTS* J)
                                       (MAKE-LIST J))))
                                  (DO* ((J 0 (1+ J)))
                                       ((>= J
                                         *MAXIMUM-NUMBER-OF-DIMENSIONS*)
                                        NIL)
                                    (SETF
                                     (AREF *ARRAY-OF-TEMP-LISTS* J)
                                     (MAKE-LIST J)))))))
 2 (Abort) Return to top level.
dbl:*SIM-I>>