Changeset 14426


Ignore:
Timestamp:
03/07/13 21:38:26 (8 years ago)
Author:
ehuelsmann
Message:

Fix #274: Infinite loop when compiling COM.INFORMATIMAGO.COMMON-LISP.CESARUM.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/dump-form.lisp

    r14352 r14426  
    7676     (when (null object)
    7777       (return-from df-check-cons))
    78      (df-register-circularity object)))
     78     (when (eq :circular (df-register-circularity object))
     79       (return))))
    7980
    8081(defun df-check-vector (object)
     
    268269        (*instance-forms* (make-hash-table :test #'eq))
    269270        (*circle-counter* 0))
     271;;    (print form)
    270272    (unless *prevent-fasl-circle-detection*
    271273      (df-check-object form))
Note: See TracChangeset for help on using the changeset viewer.