[ clisp-Bugs-3509539 ] generic function not available in DEFINE-METHOD-COMBINATION
SourceForge.net <[email protected]>
| Newsgroups | gmane.lisp.clisp.devel |
|---|---|
| Message-ID | <[email protected]> |
Bugs item #3509539, was opened at 2012-03-20 18:18
Message generated for change (Tracker Item Submitted) made by pfeilgm
You can respond by visiting:
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3509539&group_id=1355
Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: clisp
Group: ANSI compliance issue
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Greg Pfeil (pfeilgm)
Assigned to: Bruno Haible (haible)
Summary: generic function not available in DEFINE-METHOD-COMBINATION
Initial Comment:
The following code prints "this function: NIL" when I would expect something like "this function: #<STANDARD-GENERIC-FUNCTION ECHO>".
(define-method-combination print-gf ()
((primary () :required t))
(:generic-function gf)
`(progn (format t "this function: ~A" ,gf)
(call-method ,(first primary) ,(rest primary))))
(defgeneric echo (x)
(:method-combination print-gf)
(:method (x)
x))
(echo t)
=>
this function: NIL
T
my system: Darwin Tiamat.local 11.3.0 Darwin Kernel Version 11.3.0: Thu Jan 12 18:47:41 PST 2012; root:xnu-1699.24.23~1/RELEASE_X86_64 x86_64
my clisp:
GNU CLISP 2.49+ (2010-07-17) (built 3538508120) (memory 3538508385)
Software: GNU C 4.2.1 (Apple Inc. build 5666) (dot 3)
gcc-4.2 -std=c99 -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -Wno-format-nonliteral -O -falign-functions=4 -pthread -DUNIX_BINARY_DISTRIB -DENABLE_UNICODE -DMULTITHREAD -DPOSIX_THREADS -DDYNAMIC_MODULES -DNO_GETTEXT libgnu.a -lncurses -liconv -L/usr/local/lib -lsigsegv -lc -R/usr/local/lib -L/usr/X11/lib -R/usr/X11/lib
SAFETY=0 HEAPCODES STANDARD_HEAPCODES WIDE_HARD GENERATIONAL_GC SPVW_BLOCKS SPVW_MIXED TRIVIALMAP_MEMORY
libsigsegv 2.10
libiconv 1.11
Features:
(REGEXP WILDCARD SYSCALLS I18N LOOP COMPILER CLOS MOP CLISP ANSI-CL COMMON-LISP
LISP=CL INTERPRETER LOGICAL-PATHNAMES MT SOCKETS GENERIC-STREAMS SCREEN
UNICODE BASE-CHAR=CHARACTER WORD-SIZE=64 UNIX MACOS)
C Modules: (clisp i18n syscalls regexp)
Installation directory: /Users/greg/Documents/sources/clisp/src/
User language: ENGLISH
Machine: X86_64 (X86_64) tiamat.local [10.0.1.103]
----------------------------------------------------------------------
You can respond by visiting:
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3509539&group_id=1355
------------------------------------------------------------------------------
This SF email is sponsosred by:
Try Windows Azure free for 90 days Click Here
http://p.sf.net/sfu/sfd2d-msazure
_______________________________________________
clisp-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/clisp-devel