X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftime.lisp;h=f9acccc0a8e4e35528393b0750eea6d9e6cfeeb6;hb=b0b168c08b31a748150f404398af754f26fd4813;hp=d416cdd1569ef97cc3d37da6932456e3951153d9;hpb=9514c25e89aad10784c6d04fea4595d8c8ae68cc;p=sbcl.git

diff --git a/src/code/time.lisp b/src/code/time.lisp
index d416cdd..f9acccc 100644
--- a/src/code/time.lisp
+++ b/src/code/time.lisp
@@ -82,7 +82,7 @@
 ;;; Returns two values:
 ;;;  - the minutes west of GMT.
 ;;;  - T if daylight savings is in effect, NIL if not.
-(sb!alien:def-alien-routine get-timezone sb!c-call:void
+(sb!alien:define-alien-routine get-timezone sb!c-call:void
   (when sb!c-call:long :in)
   (minutes-west sb!c-call:int :out)
   (daylight-savings-p sb!alien:boolean :out))
@@ -235,7 +235,7 @@
 (defmacro time (form)
   #!+sb-doc
   "Execute FORM and print timing information on *TRACE-OUTPUT*."
-  `(%time #'(lambda () ,form)))
+  `(%time (lambda () ,form)))
 
 ;;; Return all the data that we want TIME to report.
 (defun time-get-sys-info ()