Skip to content
Snippets Groups Projects
Commit f7804071 authored by gerd's avatar gerd
Browse files

Get rid of the 64 bytes that are shown as being consed when

	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*.
parent 78999d4c
No related branches found
No related tags found
Loading
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment