Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: f4dcab9)
std-slot-value.lsp: declare ignoring unused variable. Closes #13.
authorDaniel Kochmański <dkochmanski@hellsgate.pl>
Sat, 14 Mar 2015 20:58:05 +0000 (21:58 +0100)
committerDaniel Kochmański <dkochmanski@hellsgate.pl>
Sat, 14 Mar 2015 20:58:05 +0000 (21:58 +0100)
src/clos/std-slot-value.lsp patch | blob | blame | history

diff --git a/src/clos/std-slot-value.lsp b/src/clos/std-slot-value.lsp
index ff57688..e616899 100644 (file)
--- a/src/clos/std-slot-value.lsp
+++ b/src/clos/std-slot-value.lsp
@@ -253,6 +253,7 @@
 ;;;
 
 (defun invalid-slot-location (instance location)
-  (declare (si::c-local))
+  (declare (si::c-local)
+          (ignore instance))
   (error "Invalid location ~A when accessing slot of class ~A"
         location (class-of location)))
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)