Hi there,
With everything up-to-date (including clbuild and SBCL), SBCL fails to compile
weblocks' html.lisp in Darwin with the following output:
bash-3.2$ ./clbuild recompile weblocks
; loading system definition from /Users/admin/cl/clbuild/systems/cl-ppcre.asd
; into #<PACKAGE "ASDF0">
; registering #<SYSTEM :CL-PPCRE {1003480D41}> as CL-PPCRE
; registering #<SYSTEM :CL-PPCRE-TEST {1002C99861}> as CL-PPCRE-TEST
Loading weblocks-demo...
; loading system definition from /usr/local/lib/sbcl/sb-grovel/sb-grovel.asd
; into #<PACKAGE "ASDF1">
; registering #<SYSTEM SB-GROVEL {1002EB8B41}> as SB-GROVEL
; file: /Users/admin/cl/clbuild/source/weblocks/src/utils/html.lisp
; in: DEFMETHOD RENDER-EXTRA-TAGS
; (CLOSER-MOP:DEFMETHOD WEBLOCKS::RENDER-EXTRA-TAGS
; (WEBLOCKS::TAG-CLASS COUNT)
; "Renders extra tags to get around CSS limitations. 'tag-class'
; is a string that specifies the class name and 'count' is the
; number of extra tags to render.
; Ex:
; (render-extra-tags \"extra-\" 2) =>
; \"<div class=\"extra-1\"></div><div class=\"extra-1\"></div>\""
; (CL-WHO:WITH-HTML-OUTPUT (WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM*)
; (LOOP PARENSCRIPT:FOR WEBLOCKS::I WEBLOCKS::FROM 1 WEBLOCKS::TO
; COUNT
; PARENSCRIPT:FOR WEBLOCKS::ATTR = (FORMAT NIL "~A~A"
; WEBLOCKS::TAG-CLASS
; WEBLOCKS::I)
; DO ...)))
;
; caught WARNING:
; No generic function RENDER-EXTRA-TAGS present when encountering
macroexpansion of defmethod. Assuming it will be an instance of
standard-generic-function.
WARNING:
COMPILE-FILE warned while performing
#<COMPILE-OP (:VERBOSE NIL) {1003AFE891}> on
#<CL-SOURCE-FILE "html" {10049018E1}>.
unhandled ASDF:COMPILE-FAILED in thread #<SB-THREAD:THREAD "initial thread"
RUNNING {100361EDE1}>:
erred while invoking #<COMPILE-OP (:VERBOSE NIL) {1003AFE891}> on
#<CL-SOURCE-FILE "html" {10049018E1}>
0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {10033AB979}>)[:EXTERNAL]
1: (BACKTRACE 128 #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDERR* {1000157B71}>)
2: (SB-DEBUG::DEBUGGER-DISABLED-HOOK
#<ASDF:COMPILE-FAILED {10033A8741}>
#<unavailable argument>)
3: (INVOKE-DEBUGGER #<ASDF:COMPILE-FAILED {10033A8741}>)
4: (ERROR ASDF:COMPILE-FAILED)[:EXTERNAL]
5: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE))
#<unavailable argument>
#<unavailable argument>
#<ASDF:COMPILE-OP (:VERBOSE NIL) {1003AFE891}>
#<ASDF:CL-SOURCE-FILE "html" {10049018E1}>)
6: ((LAMBDA
(SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
SB-PCL::.ARG1.))
#<unavailable argument>
#<unavailable argument>
#<ASDF:COMPILE-OP (:VERBOSE NIL) {1003AFE891}>
#<ASDF:CL-SOURCE-FILE "html" {10049018E1}>)
7: ((SB-PCL::FAST-METHOD ASDF:PERFORM ASDF:AROUND
(ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE))
#<unavailable argument>
#S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #<CLOSURE # {1004C15769}>
:PV NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (2))
#<ASDF:COMPILE-OP (:VERBOSE NIL) {1003AFE891}>
#<ASDF:CL-SOURCE-FILE "html" {10049018E1}>)
8: ((LAMBDA ()))
9: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
10: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]291))
11: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK
#<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK) {31FF259}>
#S(SB-THREAD:MUTEX
:NAME "World Lock"
:%OWNER #<SB-THREAD:THREAD "initial thread" RUNNING {100361EDE1}>
:LUTEX #<unknown pointer object, widetag=#x66 {10007F169F}>))
12: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA #)
{1004352129}>)[:EXTERNAL]
13: (ASDF:OPERATE ASDF:LOAD-OP "weblocks-demo")[:EXTERNAL]
14: ((FLET CLBUILD::BUILD))
15: ((LAMBDA ()))
16: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(CLBUILD::WITH-APPLICATION (CLBUILD::PROJECTS-STRING &KEY CLBUILD::DUMP
CLBUILD::VERBOSE CLBUILD::FORCE)
(LET ((CLBUILD::PROJECTS
(CL-PPCRE:SPLIT "\\s+" CLBUILD::PROJECTS-STRING))
(CLBUILD::BLACKLISTED-SYSTEMS
(UNLESS CLBUILD::FORCE CLBUILD::*BLACKLISTED-SYSTEMS*))
(CLBUILD::SKIPPED-SYSTEMS 'NIL)
(*PACKAGE* (FIND-PACKAGE :CL-USER)))
(SETF CLBUILD::PROJECTS (SORT CLBUILD::PROJECTS #'STRING-LESSP))
(FLET ((CLBUILD::BUILD ()
(DOLIST (CLBUILD::PROJECT CLBUILD::PROJECTS)
(DOLIST
(CLBUILD::SYSTEM
(CLBUILD::PROJECT-TO-SYSTEMS CLBUILD::PROJECT))
(COND
((FIND CLBUILD::SYSTEM CLBUILD::BLACKLISTED-SYSTEMS
:TEST #'EQUAL)
(PUSH CLBUILD::SYSTEM CLBUILD::SKIPPED-SYSTEMS))
(T (FORMAT T "Loading ~A...~%" CLBUILD::SYSTEM)
(ASDF:OPERATE 'ASDF:LOAD-OP CLBUILD::SYSTEM :VERBOSE
CLBUILD::VERBOSE)))))))
(IF CLBUILD::VERBOSE
(CLBUILD::BUILD)
(HANDLER-BIND ((STYLE-WARNING #'MUFFLE-WARNING)
(COMPILER-NOTE #'MUFFLE-WARNING))
(LET ((*COMPILE-VERBOSE* NIL)
(*COMPILE-PRINT* NIL)
(*LOAD-VERBOSE* NIL)
(*LOAD-PRINT* NIL))
(CLBUILD::BUILD)))))
(WHEN CLBUILD::SKIPPED-SYSTEMS
(FORMAT T
"WARNING: The following black-listed systems were skipped: ~
~{~A~^, ~}~%~
Try --force t to include them.~%"
CLBUILD::SKIPPED-SYSTEMS))
(WHEN CLBUILD::DUMP
(FORMAT T "Dumping monster.core...~%")
(FORCE-OUTPUT)
(SAVE-LISP-AND-DIE "monster.core"))))
#<NULL-LEXENV>)
17: (SB-FASL::LOAD-AS-SOURCE
#<SB-SYS:FD-STREAM for "file /Users/admin/cl/clbuild/clbuild.lisp"
{1002D49871}>
NIL
NIL)
18: ((FLET SB-FASL::LOAD-STREAM)
#<SB-SYS:FD-STREAM for "file /Users/admin/cl/clbuild/clbuild.lisp"
{1002D49871}>
NIL)
19: (LOAD "/Users/admin/cl/clbuild/clbuild.lisp")[:EXTERNAL]
20: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(LOAD "/Users/admin/cl/clbuild/clbuild.lisp")
#<NULL-LEXENV>)
21: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS
((:EVAL . "(require :asdf)")
(:EVAL
. "(setq asdf:*central-registry*
'(#p\"/Users/admin/cl/clbuild/systems/\"))")
(:EVAL . "nil")
(:EVAL . "(load \"/Users/admin/cl/clbuild/clbuild.lisp\")")))
22: (SB-IMPL::TOPLEVEL-INIT)
23: ((LABELS SB-IMPL::RESTART-LISP))
unhandled condition in --disable-debugger mode, quitting
;
; compilation unit aborted
; caught 1 fatal ERROR condition
; caught 1 WARNING condition
bash-3.2$
Seb
--
Emacs' AlsaPlayer - Music Without Jolts
Lightweight, full-featured and mindful of your idyllic happiness.
http://home.gna.org/eap
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"weblocks" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/weblocks?hl=en
-~----------~----~----~----~------~----~------~--~---
