X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-extensions.lisp;h=0d40d306c0c0199be96689e8250405cf1c430448;hb=568b75331113ecd0601449f337557cd1c1776e8d;hp=4834c062f421de69c06f233380b87d7a56664da9;hpb=334af30b26555f0bf706f7157b399bdbd4fad548;p=sbcl.git

diff --git a/src/code/early-extensions.lisp b/src/code/early-extensions.lisp
index 4834c06..0d40d30 100644
--- a/src/code/early-extensions.lisp
+++ b/src/code/early-extensions.lisp
@@ -404,6 +404,14 @@
   (if (consp x)
       (destructuring-bind (result) x result)
       x))
+
+;;; some commonly-occuring CONSTANTLY forms
+(macrolet ((def-constantly-fun (name constant-expr)
+	     `(setf (symbol-function ',name)
+		    (constantly ,constant-expr))))
+  (def-constantly-fun constantly-t t)
+  (def-constantly-fun constantly-nil nil)
+  (def-constantly-fun constantly-0 0))
 
 ;;;; utilities for two-VALUES predicates