Changeset 157

Timestamp:

Dec 29, 2003, 12:17:57 AM (21 years ago)

Author:

Gary Byers

Message:

Access SUPER via (SUPER).

File:

• trunk/ccl/examples/objc-readtable.lisp (modified) (1 diff)

trunk/ccl/examples/objc-readtable.lisp

@@ -42 +42 @@
       (if (eq (car tail) :super)
         (if structptr
-          `(objc-message-send-super-stret ,structptr super ,@(cdr tail))
-          `(objc-message-send-super super ,@(cdr tail)))
+          `(objc-message-send-super-stret ,structptr (super) ,@(cdr tail))
+          `(objc-message-send-super (super) ,@(cdr tail)))
         (if structptr
           `(objc-message-send-stret ,structptr ,@tail)