Permalink
Browse files

Quick hack for SBCL

See #1
  • Loading branch information...
1 parent 46be023 commit 25fbbe24e7a05c1f2b815e149045a08028453504 @adlai adlai committed Jun 17, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/contact.lisp
View
3 src/contact.lisp
@@ -1,7 +1,8 @@
;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
(in-package :squirl)
-(declaim (inline make-contact))
+;;; SBCL chokes when this constructor is inlined
+#-sbcl (declaim (inline make-contact))
(defstruct (contact (:constructor make-contact (point normal distance &optional hash)))
;; Contact point and normal
(point +zero-vector+ :type vec)

0 comments on commit 25fbbe2

Please sign in to comment.