0.9.3.30:

[sbcl.git] / src / compiler / srctran.lisp

diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp
index 620ab2a..7383e72 100644 (file)
--- a/src/compiler/srctran.lisp
+++ b/src/compiler/srctran.lisp
@@ -129,11 +129,11 @@
 (define-source-transform nth (n l) `(car (nthcdr ,n ,l)))
 
 (define-source-transform last (x) `(sb!impl::last1 ,x))
-;; (define-source-transform last (x)
-;;  `(let* ((x (the list ,x))
-;;          (r (cdr x)))
-;;     (do () ((atom r) x)
-;;       (shiftf x r (cdr r)))))
+(define-source-transform gethash (&rest args)
+  (case (length args)
+   (2 `(sb!impl::gethash2 ,@args))
+   (3 `(sb!impl::gethash3 ,@args))
+   (t (values nil t))))
 
 (defvar *default-nthcdr-open-code-limit* 6)
 (defvar *extreme-nthcdr-open-code-limit* 20)