[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
RE: [Gcl-devel] CALL-ARGUMENTS-LIMIT and other things Part II - The Forg
From: |
Mike Thomas |
Subject: |
RE: [Gcl-devel] CALL-ARGUMENTS-LIMIT and other things Part II - The Forgotten Patch |
Date: |
Mon, 1 Nov 2004 16:56:26 +1000 |
$ 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) )