X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fforeign.lisp;h=87d8939f7030acfe774c03e9ed47e50fb1f726b2;hb=d61775ee52828f379eb6acedca421d5a55bfa2bd;hp=a02162c4cb65b5b4f39dad96d0b0a28adea7c32e;hpb=f319c3261c5eeb9c96dd003d7bb87664e0eea2fa;p=sbcl.git

diff --git a/src/code/foreign.lisp b/src/code/foreign.lisp
index a02162c..87d8939 100644
--- a/src/code/foreign.lisp
+++ b/src/code/foreign.lisp
@@ -68,7 +68,7 @@
 ;;; work on any ELF system with dlopen(3) and dlsym(3)
 ;;; It also works on OpenBSD, which isn't ELF, but is otherwise modern
 ;;; enough to have a fairly well working dlopen/dlsym implementation.
-#-(or linux FreeBSD OpenBSD)
+#-(or linux sunos FreeBSD OpenBSD)
 (macrolet ((define-unsupported-fun (fun-name)
 	     `(defun ,fun-name (&rest rest)
 		"unsupported on this system"
@@ -76,7 +76,7 @@
 		(error 'unsupported-operator :name ',fun-name))))
   (define-unsupported-fun load-1-foreign)
   (define-unsupported-fun load-foreign))
-#+(or linux FreeBSD OpenBSD)
+#+(or linux sunos FreeBSD OpenBSD)
 (progn
 
 ;;; flags for dlopen()