From 5ec9ae7277130e8259ee0f51a97d0087f79706cc Mon Sep 17 00:00:00 2001
From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Mon, 2 Jun 2008 11:42:55 +0300
Subject: [PATCH] move EXTRACT-FUNCTION-NAME to control-flow.lisp

---
 control-flow.lisp | 8 ++++++++
 definitions.lisp  | 8 --------
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/control-flow.lisp b/control-flow.lisp
index dca011a..2e0f016 100644
--- a/control-flow.lisp
+++ b/control-flow.lisp
@@ -1,5 +1,13 @@
 (in-package :alexandria)
 
+(defun extract-function-name (spec)
+  "Useful for macros that want to mimic the functional interface for functions
+like #'eq and 'eq."
+  (if (and (consp spec)
+           (member (first spec) '(quote function)))
+      (second spec)
+      spec))
+
 (defun generate-switch-body (whole object clauses test key &optional default)
   (with-gensyms (value)
     (setf test (extract-function-name test))
diff --git a/definitions.lisp b/definitions.lisp
index 9247570..d1db72d 100644
--- a/definitions.lisp
+++ b/definitions.lisp
@@ -1,13 +1,5 @@
 (in-package :alexandria)
 
-(defun extract-function-name (spec)
-  "Useful for macros that want to mimic the functional interface for functions
-like #'eq and 'eq."
-  (if (and (consp spec)
-           (member (first spec) '(quote function)))
-      (second spec)
-      spec))
-
 (defun %reevaluate-constant (name value &key (test 'eql))
   (if (not (boundp name))
       value
-- 
GitLab