From 091e6134525d822e21cc76c35c14cbc274f709fc Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Fri, 15 Feb 2013 12:54:13 +0000 Subject: [PATCH] Export GET-SETF-EXPANSION and DEFINE-SETF-EXPANDER --- ecmalisp.lisp | 46 +++++++++++++++++++++------------------------- 1 file changed, 21 insertions(+), 25 deletions(-) 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*) -- 1.7.10.4