Commit 42bf5348 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Removed debugging print.

parent 00911cca
......@@ -5,9 +5,9 @@
;;;;SYSTEM: Common-Lisp
;;;;USER-INTERFACE: NONE
;;;;DESCRIPTION
;;;;
;;;;
;;;; Defines the packages.
;;;;
;;;;
;;;;AUTHORS
;;;; <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
;;;;MODIFICATIONS
......@@ -15,19 +15,19 @@
;;;;BUGS
;;;;LEGAL
;;;; AGPL3
;;;;
;;;;
;;;; Copyright Pascal J. Bourguignon 2010 - 2016
;;;;
;;;;
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, or
;;;; (at your option) any later version.
;;;;
;;;;
;;;; This program is distributed in the hope that it will be useful,
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;;; GNU Affero General Public License for more details.
;;;;
;;;;
;;;; 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/>
;;;;**************************************************************************
......@@ -67,32 +67,32 @@ See source file for details.
(defparameter *oclo-objc-symbol-names*
'("*OBJC-DESCRIPTION-MAX-LENGTH*"
"@CLASS"
"@SELECTOR"
"@SELECTOR"
"DEFINE-OBJC-CLASS-METHOD"
"DEFINE-OBJC-METHOD"
"DEFMETHOD"
"DEFMETHOD"
"LISP-STRING-FROM-NSSTRING"
"LOAD-FRAMEWORK"
"MAKE-NSSTRING"
"MAKE-NSSTRING"
"MAKE-OBJC-INSTANCE"
"OBJC-CLASS"
"OBJC-CLASS-OBJECT"
"OBJC-CLASS-OBJECT"
"OBJC-MESSAGE-SEND"
"OBJC-MESSAGE-SEND-STRET"
"OBJC-MESSAGE-SEND-STRET"
"OBJC-MESSAGE-SEND-SUPER"
"OBJC-MESSAGE-SEND-SUPER-STRET"
"OBJC-MESSAGE-SEND-SUPER-STRET"
"OBJC-METACLASS"
"OBJC-OBJECT"
"REMOVE-LISP-SLOTS"
"REMOVE-LISP-SLOTS"
"RETURNING-FOREIGN-STRUCT"
"SEND-SUPER"
"SEND-SUPER"
"SEND-SUPER/STRET"
"SEND"
"SEND/STRET"
"WITH-AUTORELEASE-POOL"
"WITH-AUTORELEASED-NSSTRINGS"
#-ccl-1.9 "*COCOA-APPLICATION-FRAMEWORKS*"
#-ccl-1.9 "*COCOA-APPLICATION-FRAMEWORKS*"
"@"
"DEFINE-CLASSNAME-TRANSLATION"
"LISP-TO-OBJC-CLASSNAME"
......@@ -102,9 +102,7 @@ See source file for details.
"SLET"
"UPDATE-OBJC-METHOD-INFO")))
(print
'(defpackage "COM.INFORMATIMAGO.OBJECTIVE-C.LOWER"
(defpackage "COM.INFORMATIMAGO.OBJECTIVE-C.LOWER"
(:nicknames "COM.INFORMATIMAGO.OCLO"
"OCLO")
(:use "CL")
......@@ -125,30 +123,30 @@ See source file for details.
(:export
"SELF" "SUPER"
;; from objc.
"*OBJC-DESCRIPTION-MAX-LENGTH*"
"@CLASS"
"@SELECTOR"
"@SELECTOR"
"DEFINE-OBJC-CLASS-METHOD"
"DEFINE-OBJC-METHOD"
"DEFMETHOD"
"DEFMETHOD"
"LISP-STRING-FROM-NSSTRING"
"LOAD-FRAMEWORK"
"MAKE-NSSTRING"
"MAKE-NSSTRING"
"MAKE-OBJC-INSTANCE"
"OBJC-CLASS"
"OBJC-CLASS-OBJECT"
"OBJC-CLASS-OBJECT"
"OBJC-MESSAGE-SEND"
"OBJC-MESSAGE-SEND-STRET"
"OBJC-MESSAGE-SEND-STRET"
"OBJC-MESSAGE-SEND-SUPER"
"OBJC-MESSAGE-SEND-SUPER-STRET"
"OBJC-MESSAGE-SEND-SUPER-STRET"
"OBJC-METACLASS"
"OBJC-OBJECT"
"REMOVE-LISP-SLOTS"
"REMOVE-LISP-SLOTS"
"RETURNING-FOREIGN-STRUCT"
"SEND"
"SEND-SUPER"
"SEND-SUPER"
"SEND-SUPER/STRET"
"SEND/STRET"
"SLET"
......@@ -156,7 +154,7 @@ See source file for details.
"WITH-AUTORELEASED-NSSTRINGS"
;; from ccl.
#-ccl-1.9 "*COCOA-APPLICATION-FRAMEWORKS*"
#-ccl-1.9 "*COCOA-APPLICATION-FRAMEWORKS*"
"@"
"DEFINE-CLASSNAME-TRANSLATION"
"LISP-TO-OBJC-CLASSNAME"
......@@ -170,15 +168,14 @@ See source file for details.
;; implemented in oclo-<implementation>.lisp
"LISP-TO-OBJC-CLASSNAME-P"
"OBJC-TO-LISP-CLASSNAME-P"
"*NULL*" "NULLP"
"*NULL*" "NULLP"
"SELECTOR")
(:documentation "
This package exports low level Objective-C stuff,
basically the ccl Objective-C bridge, in a nifty
single package exporting all these symbols.
")))
"))
(defpackage "COM.INFORMATIMAGO.OBJECTIVE-CL"
......
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