# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1484956064 0
# Node ID ba324d052c50c52a46171c012454d931d46a113f
# Parent  d25b6f52fad15f77d5f5c9819d4ab8af57f6db1c
Be friendlier

diff -r d25b6f52fad1 -r ba324d052c50 DOCUMENTATION.markdown
--- a/DOCUMENTATION.markdown	Fri Jan 20 13:59:11 2017 +0000
+++ b/DOCUMENTATION.markdown	Fri Jan 20 23:47:44 2017 +0000
@@ -665,10 +665,6 @@
 
   
 
-### `DLAMBDA` (macro)
-
-    (DLAMBDA &REST CLAUSES)
-
 ## Package `LOSH.FUNCTIONS`
 
 Utilities for working with higher-order functions.
diff -r d25b6f52fad1 -r ba324d052c50 losh.lisp
--- a/losh.lisp	Fri Jan 20 13:59:11 2017 +0000
+++ b/losh.lisp	Fri Jan 20 23:47:44 2017 +0000
@@ -1053,7 +1053,7 @@
      (2.005 1.004))
 
   "
-  (let ((timing-function (ecase time-type
+  (let ((timing-function (ccase time-type
                            ((:real-time real-time) 'get-internal-real-time)
                            ((:run-time run-time) 'get-internal-run-time)))
         (since-var (or since-var (when (null per-var)
@@ -1645,7 +1645,7 @@
 
   "
   (check-type n array-index)
-  (etypecase seq
+  (ctypecase seq
     (list (take-list n seq))
     (sequence (take-seq n seq))))
 
@@ -1675,7 +1675,7 @@
 
   "
   (check-type n array-index)
-  (etypecase seq
+  (ctypecase seq
     (list (drop-list n seq))
     (sequence (drop-seq n seq))))
 
@@ -2269,7 +2269,7 @@
   (flet ((esc (string) (remove #\' (aesthetic-string string)))
          (f (&rest args) (apply #'format nil args)))
     (gnuplot-args%
-      (ecase output
+      (ccase output
         ((:x :x11) (f "set terminal x11 persist"))
         (:qt (f "set terminal qt persist"))
         (:png
@@ -2421,17 +2421,6 @@
 
 
 ;;;; Eldritch Horrors ---------------------------------------------------------
-(defmacro dlambda (&rest clauses)
-  ;;; From Let Over Lambda.
-  (with-gensyms (message arguments)
-    (flet ((parse-clause (clause)
-             (destructuring-bind (key arglist &rest body)
-                 clause
-               `(,key (apply (lambda ,arglist ,@body) ,arguments)))))
-      `(lambda (,message &rest ,arguments)
-        (ecase ,message
-          ,@(mapcar #'parse-clause clauses))))))
-
 (defmacro with-flexible-accessors (slot-entries instance-form &rest body)
   (with-gensyms (instance)
     `(let ((,instance ,instance-form))
@@ -2441,7 +2430,6 @@
                     (collect `(,symbol (,accessor ,instance))))
         ,@body))))
 
-
 (defmacro define-with-macro (type-and-options &rest slots)
   "Define a with-`type` macro for the given `type` and `slots`.
 
diff -r d25b6f52fad1 -r ba324d052c50 package.lisp
--- a/package.lisp	Fri Jan 20 13:59:11 2017 +0000
+++ b/package.lisp	Fri Jan 20 23:47:44 2017 +0000
@@ -84,7 +84,6 @@
 (defpackage :losh.eldritch-horrors
   (:documentation "Abandon all hope, ye who enter here.")
   (:export
-    :dlambda
     :define-with-macro))
 
 (defpackage :losh.functions