in debug mode declaim notinline
Wed Feb 25 09:28:05 PST 2009 attila.lendvai@gmail.com
* in debug mode declaim notinline
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-cl-def/definers.lisp new-cl-def/definers.lisp
--- old-cl-def/definers.lisp 2014-07-29 15:56:27.000000000 -0700
+++ new-cl-def/definers.lisp 2014-07-29 15:56:27.000000000 -0700
@@ -36,6 +36,8 @@
`(progn
,@(when (getf -options- :inline)
`((declaim (inline ,name))))
+ ,@(when (getf -options- :debug)
+ `((declaim (notinline ,name))))
(locally
,@outer-declarations
,@(when (getf -options- :export)