From: David Vazquez <davazp@gmail.com>
Date: Fri, 15 Feb 2013 12:54:13 +0000 (+0000)
Subject: Export GET-SETF-EXPANSION and DEFINE-SETF-EXPANDER
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=091e6134525d822e21cc76c35c14cbc274f709fc;p=jscl.git

Export GET-SETF-EXPANSION and DEFINE-SETF-EXPANDER
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index c631fc1..269b80a 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -2441,31 +2441,27 @@
   (defun eval (x)
     (js-eval (ls-compile-toplevel x t)))
 
-  (export '(&rest &key &optional &body * *gensym-counter* *package* +
-	    - / 1+ 1- < <= = = > >= and append apply aref arrayp assoc
-	    atom block boundp boundp butlast caar cadddr caddr cadr
-	    car car case catch cdar cdddr cddr cdr cdr char char-code
-	    char= code-char cond cons consp constantly copy-list decf
-	    declaim defconstant defparameter defun defmacro defvar
-	    digit-char digit-char-p disassemble do do* documentation
-	    dolist dotimes ecase eq eql equal error eval every export
-	    fdefinition find-package find-symbol first flet fourth
-	    fset funcall function functionp gensym get-universal-time
-	    go identity if in-package incf integerp integerp intern
-	    keywordp labels lambda last length let let*
-	    list-all-packages list listp loop make-array make-package
-	    make-symbol mapcar member minusp mod multiple-value-bind
-	    multiple-value-call multiple-value-list
-	    multiple-value-prog1 nil not nth nthcdr null numberp or
-	    package-name package-use-list packagep parse-integer plusp
-	    prin1-to-string print proclaim prog1 prog2 progn psetq
-	    push quote remove remove-if remove-if-not return
-	    return-from revappend reverse rplaca rplacd second set setf
-	    setq some string-upcase string string= stringp subseq
-	    symbol-function symbol-name symbol-package symbol-plist
-	    symbol-value symbolp t tagbody third throw truncate unless
-	    unwind-protect values values-list variable warn when
-	    write-line write-string zerop))
+  (export '(&rest &key &optional &body * *gensym-counter* *package* + - / 1+ 1- <
+            <= = = > >= and append apply aref arrayp assoc atom block boundp
+            boundp butlast caar cadddr caddr cadr car car case catch cdar cdddr
+            cddr cdr cdr char char-code fdefinition find-package find-symbol first
+            flet fourth fset funcall function functionp gensym get-setf-expansion
+            get-universal-time go identity if in-package incf integerp integerp
+            intern keywordp labels lambda last length let let* char= code-char
+            cond cons consp constantly copy-list decf declaim define-setf-expander
+            defconstant defparameter defun defmacro defvar digit-char digit-char-p
+            disassemble do do* documentation dolist dotimes ecase eq eql equal
+            error eval every export list-all-packages list listp loop make-array
+            make-package make-symbol mapcar member minusp mod multiple-value-bind
+            multiple-value-call multiple-value-list multiple-value-prog1 nil not
+            nth nthcdr null numberp or package-name package-use-list packagep
+            parse-integer plusp prin1-to-string print proclaim prog1 prog2 progn
+            psetq push quote remove remove-if remove-if-not return return-from
+            revappend reverse rplaca rplacd second set setf setq some
+            string-upcase string string= stringp subseq symbol-function
+            symbol-name symbol-package symbol-plist symbol-value symbolp t tagbody
+            third throw truncate unless unwind-protect values values-list variable
+            warn when write-line write-string zerop))
 
   (setq *package* *user-package*)