From: William H. N. <wn...@us...> - 2002-05-28 16:19:05
|
Update of /cvsroot/sbcl/sbcl/src/compiler In directory usw-pr-cvs1:/tmp/cvs-serv14487/src/compiler Modified Files: dfo.lisp Log Message: 0.7.4.3: minor tidying... ...Avoid calling TYPE-OF in common cases of COPY-SEQ (for less oppressive performance). ...nicer newlining in DESCRIBE Index: dfo.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/dfo.lisp,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** dfo.lisp 7 Feb 2002 20:37:53 -0000 1.10 --- dfo.lisp 28 May 2002 16:00:27 -0000 1.11 *************** *** 348,353 **** (values (real) (top) (real-top)))) ! ;; COMPONENTs want strings for names, LEAF-DEBUG-NAMEs mightn't be ! ;; strings.. (defun component-name-from-functional-debug-name (functional) (declare (type functional functional)) --- 348,353 ---- (values (real) (top) (real-top)))) ! ;;; COMPONENTs want strings for names, LEAF-DEBUG-NAMEs mightn't be ! ;;; strings... (defun component-name-from-functional-debug-name (functional) (declare (type functional functional)) *************** *** 376,380 **** ;; between them. Any code that is left in an initial component ;; must be unreachable, so we can delete it. Stray links to the ! ;; initial component tail (due NIL function terminated blocks) ;; are moved to the appropriate new component tail. (dolist (toplevel-lambda toplevel-lambdas) --- 376,380 ---- ;; between them. Any code that is left in an initial component ;; must be unreachable, so we can delete it. Stray links to the ! ;; initial component tail (due to NIL function terminated blocks) ;; are moved to the appropriate new component tail. (dolist (toplevel-lambda toplevel-lambdas) |