ERROR: Endless loop when referencing a slot

From: Gerald Klix <gklix_at_fred.hassler.net>
Date: Wed, 06 Nov 1996 00:24:42 +0100

I it is possible to send STk in an endless loop
when it is referencing a slot.
Just execute the following program:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; This throws STk in an endless loop.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-class <tc0> ()
  ((my-slot :init-keyword :slot)))

(format #t "OK 1.~%")

(let ((dummy (make <tc0> :slot 'shit)))
  (format #t "OK 2.~%")
  (eval
   '(define tv0
      (begin
        (eval '(define tv1 1) (the-environment))
        0))
   (the-environment))
  (format #t "Before loop.~%")
  (slot-ref dummy 'my-slot)
  (format #t "Never get here.~%")
  dummy)

Where can I look into the sources to fix this bug.

Gerald Klix
Received on Wed Nov 06 1996 - 00:20:44 CET