Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • gerd's avatar
    f7804071
    Get rid of the 64 bytes that are shown as being consed when · f7804071
    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*.
    f7804071
    History
    Get rid of the 64 bytes that are shown as being consed when
    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*.