X-Git-Url: http://git.kpe.io/?p=uffi.git;a=blobdiff_plain;f=src%2Ffunctions.lisp;h=01d62eab7c83546737aca36832ee6b30d278a3cf;hp=e44bc7da087fa3135acb2c3cdf8d3c8927649722;hb=4a32753775929412552a87847b9b265c50f8d835;hpb=6fa89a151c41d40386c8e50bb66a94e14a366b3e

diff --git a/src/functions.lisp b/src/functions.lisp
index e44bc7d..01d62ea 100644
--- a/src/functions.lisp
+++ b/src/functions.lisp
@@ -7,9 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id$
-;;;;
-;;;; This file, part of UFFI, is Copyright (c) 2005 by Kevin M. Rosenberg
+;;;; This file, part of UFFI, is Copyright (c) 2002-2010 by Kevin M. Rosenberg
 ;;;;
 ;;;; *************************************************************************
 
@@ -146,7 +144,7 @@
         #+(or cmu scl sbcl)
         `(%def-function ,names ,args
           ,@(if returning (list :returning returning) (values)))
-        #+(and lispworks lispworks5)
+        #+(or lispworks5 lispworks6)
         (multiple-value-bind (name-pair fname lisp-name)
             (preprocess-names names)
           `(progn
@@ -161,7 +159,7 @@
                                       ((member (first arg) out :key #'first)
                                        t)))
                           args)))))
-        #+(and lispworks (not lispworks5))
+        #+(and lispworks (not lispworks5) (not lispworks 6))
         `(%def-function ,names ,(convert-lispworks-args args)
           ,@(if module (list :module module) (values))
           ,@(if returning (list :returning returning) (values)))