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