RE: [Gcl-devel] CALL-ARGUMENTS-LIMIT and other things Part II - The Forgotten Patch

[Mike Thomas]

$ cvs diff o/cmpaux.c lsp/gcl_export.lsp lsp/gcl_debug.lsp
cmpnew/gcl_cmpmain.l
sp cmpnew/gcl_cmpenv.lsp cmpnew/gcl_cmptop.lsp
Enter passphrase for key '/home/miketh/.ssh/id_dsa':
Index: o/cmpaux.c
===================================================================
RCS file: /cvsroot/gcl/gcl/o/cmpaux.c,v
retrieving revision 1.23
diff -r1.23 cmpaux.c
46c46
< DEF_ORDINARY("DEBUG",sSdebug,SI,"");
---
> DEF_ORDINARY("DEBUGGER",sSdebug,SI,"");
69c69
< DEFUN_NEW("DEBUG",object,fSdebug,SI
---
> DEFUN_NEW("DEBUGGER",object,fSdebug,SI
Index: lsp/gcl_export.lsp
===================================================================
RCS file: /cvsroot/gcl/gcl/lsp/gcl_export.lsp,v
retrieving revision 1.4
diff -r1.4 gcl_export.lsp
280a281
> debug
Index: cmpnew/gcl_cmpmain.lsp
===================================================================
RCS file: /cvsroot/gcl/gcl/cmpnew/gcl_cmpmain.lsp,v
retrieving revision 1.17
diff -r1.17 gcl_cmpmain.lsp
684c684
<   (format t "~&OPTIMIZE levels: Safety=~d~:[ (No runtime error
checking)~;~],
Space=~d, Speed=~d~%"
---
>   (format t "~&OPTIMIZE levels: Safety=~d~:[ (No runtime error
checking)~;~],
Space=~d, Speed=~d, (Debug quality ignored)~%"
689c689
<           *safe-compile* *space* *speed*))
---
>           *safe-compile* *space* *speed* *debug*))
Index: cmpnew/gcl_cmpenv.lsp
===================================================================
RCS file: /cvsroot/gcl/gcl/cmpnew/gcl_cmpenv.lsp,v
retrieving revision 1.5
diff -r1.5 gcl_cmpenv.lsp
28a29
> (defvar *debug* 0)
323a325
>                (debug (setq *debug* (cadr x)))
514a517,518
>                          (debug (setq *debug* (cadr x))
>                                 (push (list 'debug (cadr x)) dl))
577a582
>         (*debug* *debug*)
580a586
>                (debug (setq *debug* (cadr decl)))
629a636
>                  (debug (unless (= (cadr x) *debug*) (return nil)))
Index: cmpnew/gcl_cmptop.lsp
===================================================================
RCS file: /cvsroot/gcl/gcl/cmpnew/gcl_cmptop.lsp,v
retrieving revision 1.16
diff -r1.16 gcl_cmptop.lsp
749c749
<   (si::putprop fname x  'si::debug))
---
>   (si::putprop fname x  'si::debugger))
1267,1268c1267,1268
<       (setf (get fname 'si::debug) locals)
<       (let ((locals (get fname 'si::debug)))
---
>       (setf (get fname 'si::debugger) locals)
>       (let ((locals (get fname 'si::debugger)))
1270c1270
<           (add-init `(si::debug ',fname ',locals) )
---
>           (add-init `(si::debugger ',fname ',locals) )