From d7e149c2bd97a990ccddd5196e0f58e257d24cab Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 5 May 2013 16:34:34 +0100 Subject: [PATCH] Replace advanced etypecase by cond --- src/lambda-list.lisp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/lambda-list.lisp b/src/lambda-list.lisp index 13aee25..1b62075 100644 --- a/src/lambda-list.lisp +++ b/src/lambda-list.lisp @@ -235,15 +235,15 @@ ;; symbol it will be bound to the form. The variable ;; where the form is bound is returned. (compute-pbindings (pattern form) - (etypecase pattern - (null) - ;; Bind the symbol to FORM. - (symbol + (cond + ((null pattern)) + ;; Bind the symbol to FORM. + ((symbolp pattern) (push `(,pattern ,form) bindings) (values pattern)) - ;; Bind FORM to a auxiliar variable and bind - ;; pattern agains it recursively. - (d-lambda-list + ((d-lambda-list-p pattern) + ;; Bind FORM to a auxiliar variable and bind + ;; pattern agains it recursively. (let ((subpart (gensym))) (push `(,subpart (progn -- 1.7.10.4