anchor.diff:      )
     )
   
  -(defun prof:prof (path func-sym / func-sym-type path-prof path-trac args)
  -  (cond
  -    ((null func-sym)
  -     nil ;; OK
  -     )
  -    ((vl-symbolp func-sym)
  -     (setq func-sym-type (type (vl-symbol-value func-sym)))
  -     (if (/= func-sym-type 'SUBR 'USUBR)
  -       (progn
  -	 (princ "func-sym must be nil or a function symbol")
  -	 (exit)
  -	 )
  -       )
  -     )
  -    (t
  -     (princ "func-sym must be nil or a function symbol")
  -     (exit)
  -     )
  -    )
  -  
  +(defun prof:prof (path func-sym / path-prof path-trac args err)
     (setq path-prof (strcat path ".prof.lsp")
   	path-trac (strcat path ".traces.txt")
   	)
  
positive.code:       (if path
  	(progn
  	  (setq func-sym (read (getstring nil "function name (empty for load exec): ")))
  	  
  	  (setq args (strcat "profile --sane -f " (prof:file-path path)))
  	  (if func-sym
  
negative.code: 	seconds (fix (rem (* time 24 60 60) 60))
  	milliseconds (fix (rem (* time 24 60 60 1000) 1000))
  	)
    
    (strcat (if (> days 0) (strcat (rtos days) ".") "")
  	  (prof:str-pad-left (rtos hours) 2 "0")
  	  ":"
  