X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Fmacros.lisp;h=dd22a7c943bdf7c3d906f3bd4542228261f475ad;hb=8e9908b6f79b7bb52a281cfcbf0712d4b914f3cf;hp=85408371c89a3730c164f2125bb157991c0d2aa6;hpb=8939690edb6e57cb735177f446b731c066e9a8fd;p=sbcl.git

diff --git a/contrib/sb-posix/macros.lisp b/contrib/sb-posix/macros.lisp
index 8540837..dd22a7c 100644
--- a/contrib/sb-posix/macros.lisp
+++ b/contrib/sb-posix/macros.lisp
@@ -28,13 +28,15 @@
 (defun real-c-name (name)
   (etypecase name
     (list
-     (destructuring-bind (name &rest options) name
-
-       (cond #+largefile
-             ((member :largefile options)
-              (format nil "~a_largefile" name))
-             (t
-              name))))
+     (destructuring-bind (name &key c-name options) name
+       (if c-name
+           c-name
+           (cond #+largefile
+                 ((or (eql options :largefile)
+                      (member :largefile options))
+                  (format nil "~a_largefile" name))
+                 (t
+                  name)))))
     (string
      name)))