Peter Van Eynde <[EMAIL PROTECTED]> wrote on Fri, 22 Apr 2005:
> Could you send me that file? I've re-loaded .asd files at will without
> problems...
Upon further investigation, it isn't just the load of the DEFSYSTEM which
causes the stack overflow. After the second load, I have to then
(asdf:operate 'asdf:load-op "BJJ")
This works fine after loading once, but stack overflows if I evaluate it
after loading twice.
This may be related to my comments in Bug #304972. Specifically, I've defined
(multiple) modules with empty names. Perhaps ASDF uses the name for some
significant purpose, and the problem is either that the names are empty, or
that there are multiple modules with the same name. I may well just be
misusing ASDF:DEFSYSTEM.
I've attached the sample run and the system definition file (which is basically
the same as the one in #304972).
-- Don
_______________________________________________________________________________
Don Geddis http://don.geddis.org/ [EMAIL
PROTECTED]
yoda/geddis:~/asdf-test> lisp
CMU Common Lisp CVS release-19a 19a-release-20040728 + minimal debian patches,
running on yoda
With core: /usr/lib/cmucl/lisp.core
Dumped on: Wed, 2005-03-23 17:30:57-08:00 on yoda
For support see http://www.cons.org/cmucl/support.html Send bug reports to the
debian BTS.
or to [EMAIL PROTECTED]
type (help) for help, (quit) to exit, and (demo) to see the demos
Loaded subsystems:
Python 1.1, target Intel x86
CLOS based on Gerd's PCL 2004/04/14 03:32:47
* (load "do-bjj")
; Loading #p"/home/geddis/asdf-test/do-bjj.lisp".
T
* (load "do-bjj")
; Loading #p"/home/geddis/asdf-test/do-bjj.lisp".
T
* (asdf:operate 'asdf:load-op "BJJ")
; [GC threshold exceeded with 12,013,392 bytes in use. Commencing GC.]
; [GC completed with 11,855,320 bytes retained and 158,072 bytes freed.]
; [GC will next occur when at least 23,855,320 bytes are in use.]
A control stack overflow has occurred: the program has entered the yellow
control stack guard zone. Please note that you will be returned to the
Top-Level if you enter the red control stack guard zone while debugging.
Control stack overflow
[Condition of type KERNEL:STACK-OVERFLOW]
Restarts:
0: [ABORT] Return to Top-Level.
Debug (type H for help)
(KERNEL:YELLOW-ZONE-HIT)
Source:
; File: target:code/interr.lisp
(ERROR 'STACK-OVERFLOW)
0]
;;;----------------------------------------------------------------------------
;;;
;;; $Source$
;;; $Id$
;;;
;;; (c) Copyright 8/28/2002-2005 Don Geddis. All rights reserved.
;;;
;;;----------------------------------------------------------------------------
;;;
;;; Generate the database-driven web pages for BJJ.Org
;;;
;;;----------------------------------------------------------------------------
;;; (ASDF) system definition for BJJ lisp code
(require 'asdf)
(asdf:defsystem
"BJJ"
:description "BJJ: Generate the database-driven web pages for BJJ.Org."
:version "1.1"
:author "Don Geddis <[EMAIL PROTECTED]>"
:licence "Copyright 2002-2005 Don Geddis"
:serial t
:components
((:module
""
:pathname "other/"
:components ((:file "asciify") (:file "misc") (:file "split-sequence"))
)
(:module
""
:components ((:file "misc") (:file "world"))
)
(:module
""
:components ((:file "parse-rdb") (:file "verify"))
)
(:module
""
:components ((:file "write-html") (:file "write-tree") (:file "links")
(:file "academies") (:file "gallery")
(:file "people" :depends-on ("academies")) )
)
(:module
""
:components ((:file "auxiliary") (:file "top"))
)
))
;;;----------------------------------------------------------------------------
;;(defun cl-bjj ()
;; (asdf:operate 'asdf:load-op "BJJ") )
;;(cl-bjj)
;;;----------------------------------------------------------------------------
