Forked from
cmucl / cmucl
Source project has a limited visibility.
-
gerd authored
calling (TIME NIL). * src/code/time.lisp (*time-consing*, *last-time-consing*): New vars. (get-time-consing): New function. (%time): Call it to get the additional consing overhead of %time. Subtract *time-consing* from the result unless null. Set *last-time-consing*.
gerd authoredcalling (TIME NIL). * src/code/time.lisp (*time-consing*, *last-time-consing*): New vars. (get-time-consing): New function. (%time): Call it to get the additional consing overhead of %time. Subtract *time-consing* from the result unless null. Set *last-time-consing*.