Commit 9053d085 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Commented out send and send/stret export. Use ccl readtable.

parent 5cd80f83
......@@ -31,8 +31,9 @@
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;**************************************************************************
#+(and ccl darwin)
(eval-when (:compile-toplevel :load-toplevel :execute)
(setf *readtable* (copy-readtable nil)))
(setf *readtable* (copy-readtable ccl::%initial-readtable%)))
#+(and ccl darwin); for now, not on non-darwin
(eval-when (:compile-toplevel :load-toplevel :execute)
......
......@@ -32,8 +32,12 @@
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>
;;;;**************************************************************************
#+(and ccl darwin)
(eval-when (:compile-toplevel :load-toplevel :execute)
(setf *readtable* (copy-readtable nil)))
(setf *readtable* (copy-readtable ccl::%initial-readtable%)))
#-(and ccl darwin)
(eval-when (:compile-toplevel :load-toplevel :execute)
(error "We need a readtable for CCL specific dispatching reader macro #$"))
(in-package "COM.INFORMATIMAGO.OBJECTIVE-CL")
(define-condition read-error (stream-error)
......
......@@ -41,5 +41,11 @@
(let ((result (gensym "structure-result-")))
`(slet ((,result ,expression)) ,result)))
(defmacro send (&whole w o msg &rest args &environment env)
(ccl::make-optimized-send o msg args env))
(defmacro send/stret (&whole w s o msg &rest args &environment env)
(ccl::make-optimized-send o msg args env s))
;;;; THE END ;;;;
......@@ -84,10 +84,10 @@ See source file for details.
"OBJC-OBJECT"
"REMOVE-LISP-SLOTS"
"RETURNING-FOREIGN-STRUCT"
"SEND"
"SEND-SUPER"
"SEND-SUPER/STRET"
"SEND/STRET"
;; "SEND"
;; "SEND/STRET"
"WITH-AUTORELEASE-POOL"
"WITH-AUTORELEASED-NSSTRINGS")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment