more stuff

[William.Lott@ARDATH.SLISP.CS.CMU.EDU]

Rob,

I built a core, but it doesn't work.  When I tried to compile a simple
file, it flamed out with:

Type-error in c::delete-lambda:
  nil is not of type c:bind

Restarts:
  0: Return to Top-Level.

Debug  (type H for help)

(debug::debug-loop) 
0] backtrace


(debug::debug-loop) 
(debug:internal-debug) 
(invoke-debugger #<type-error.604315D>) 
(error type-error :function-name c::delete-lambda :datum ...) 
("DEFERR OBJECT-NOT-TYPE-ERROR" c::delete-lambda
 #<System-Area pointer: #x500008D8>
 #<Alien value, Address = #x7FFFE234, Size = 2400, Type = mach:sigcontext>
 (273 305)) 
("Foreign function call land") 
(c::delete-lambda #<lambda #x6041CAD
                           name= nil
                           type= #<named-type function>
                           where-from= :defined
                           vars= nil>) 
(c::frob
 #<lambda #x6041CAD
          name= nil
          type= #<named-type function>
          where-from= :defined
          vars= nil>) 
(c::delete-optional-dispatch #<c::optional-dispatch #x6040135
                                                    name= nil
                                                    type= #<named-type function>
                                                    where-from= :defined
                                                    arglist= (# # #)
                                                    min-args= 0
                                                    max-args= 2
                                                    entry-points= (# # #)
                                                    more-entry= #<lambda #x6040E75>
                                                    main-entry= #<lambda #x604023D>>) 
(c::delete-ref #<c::ref #x6041FF5  leaf= #<c::optional-dispatch #x6040135>>) 
(c::change-ref-leaf #<c::ref #x6041FF5
                             leaf= #<c::optional-dispatch #x6040135>>
                    #<lambda #x604072D
                             name= nil
                             type= #<named-type function>
                             where-from= :defined
                             vars= (#:g18 #:g19)>) 
(c::convert-mv-call #<c::ref #x6041FF5
                             leaf= #<c::optional-dispatch #x6040135>>
                    #<c::mv-combination #x603FF3D
                                        fun= #<c::ref #x6041FF5>
                                        args= (#)>
                    #<c::optional-dispatch #x6040135
                                           name= nil
                                           type= #<named-type function>
                                           where-from= :defined
                                           arglist= (# # #)
                                           min-args= 0
                                           max-args= 2
                                           entry-points= (# # #)
                                           more-entry= #<lambda #x6040E75>
                                           main-entry= #<lambda #x604023D>>) 
(c::convert-call-if-possible #<c::ref #x6041FF5
                                      leaf= #<c::optional-dispatch #x6040135>>
                             #<c::mv-combination #x603FF3D
                                                 fun= #<c::ref #x6041FF5>
                                                 args= (#)>) 
(c::local-call-analyze-1 #<c::optional-dispatch #x6040135
                                                name= nil
                                                type= #<named-type function>
                                                where-from= :defined
                                                arglist= (# # #)
                                                min-args= 0
                                                max-args= 2
                                                entry-points= (# # #)
                                                more-entry= #<lambda #x6040E75>
                                                main-entry= #<lambda #x604023D>>) 
(c::local-call-analyze #<c:component #x6033AB5
                                     name= "initial component"
                                     reanalyze= t>) 
(c::compile-top-level (#<lambda #x6033B15>)
                      #<Fasl-File "/afs/cs.cmu.edu/project/clisp/new-compiler/wlott/work/foo.pmaxf">) 
(c::convert-and-maybe-compile (c::%defun 'make-foo
                                         #'(lambda # # #)
                                         nil
                                         '(defun make-foo # # #))
                              ((c::%defun 'make-foo #'# nil '#)
                               (defun make-foo # # #) (progn # # # 'foo)
                               c::original-source-start 0 ...)
                              #<Fasl-File "/afs/cs.cmu.edu/project/clisp/new-compiler/wlott/work/foo.pmaxf">) 
(c::process-form (c::%defun 'make-foo
                            #'(lambda # # #)
                            nil
                            '(defun make-foo # # #))
                 ((defun make-foo # # #) (progn # # # 'foo)
                  c::original-source-start 0 1)
                 #<Fasl-File "/afs/cs.cmu.edu/project/clisp/new-compiler/wlott/work/foo.pmaxf">) 
(c::process-form (defun make-foo (&key # # #)
                   (declare # # #)
                   (let # # # # ...))
                 ((progn # # # 'foo) c::original-source-start 0 1)
                 #<Fasl-File "/afs/cs.cmu.edu/project/clisp/new-compiler/wlott/work/foo.pmaxf">) 
(c::process-form 3
                 (defun make-foo (&key # # #)
                   (declare # # #)
                   (let # # # # ...))
                 ((progn # # # 'foo) c::original-source-start 0 1)
                 #<Fasl-File "/afs/cs.cmu.edu/project/clisp/new-compiler/wlott/work/foo.pmaxf">) [:external]
(c::process-progn ((c::%defstruct '#<Defstruct-Description for foo>)
                   (c::%compiler-defstruct '#<Defstruct-Description for foo>)
                   (defun make-foo # # #) 'foo)
                  ((progn # # # 'foo) c::original-source-start 0 1)
                  #<Fasl-File "/afs/cs.cmu.edu/project/clisp/new-compiler/wlott/work/foo.pmaxf">) 
(c::process-form (progn (c::%defstruct '#<Defstruct-Description for foo>)
                        (c::%compiler-defstruct '#<Defstruct-Description for foo>)
                        (defun make-foo # # #)
                        'foo)
                 (c::original-source-start 0 1)
                 #<Fasl-File "/afs/cs.cmu.edu/project/clisp/new-compiler/wlott/work/foo.pmaxf">) 
(c::process-form (defstruct foo a b c)
                 (c::original-source-start 0 1)
                 #<Fasl-File "/afs/cs.cmu.edu/project/clisp/new-compiler/wlott/work/foo.pmaxf">) 
(c::process-form 3
                 (defstruct foo a b c)
                 (c::original-source-start 0 1)
                 #<Fasl-File "/afs/cs.cmu.edu/project/clisp/new-compiler/wlott/work/foo.pmaxf">) [:external]
(#:g1) 
(c::sub-compile-file #<Source-Info>
                     #<Fasl-File "/afs/cs.cmu.edu/project/clisp/new-compiler/wlott/work/foo.pmaxf">
                     nil) 
(c::sub-compile-file 2
                     #<Source-Info>
                     #<Fasl-File "/afs/cs.cmu.edu/project/clisp/new-compiler/wlott/work/foo.pmaxf">
                     2) [:external]
(compile-file "work:foo" :output-file t :error-file ...) 
(interactive-eval (compile-file "work:foo")) 
(lisp::%top-level) 
(lisp::%initial-function) 
0] 

Have fun...

-William

ps: the core is /../lisp-pmax1/usr/wlott/lisp.core.