Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: cb24d0b)
cmpc-machine.lsp: --with-sse=yes build failure fix. Closes #301.
authorDaniel Kochmański <dkochmanski@antmicro.com>
Thu, 26 Feb 2015 14:48:58 +0000 (15:48 +0100)
committerDaniel Kochmański <dkochmanski@antmicro.com>
Thu, 26 Feb 2015 14:48:58 +0000 (15:48 +0100)
Typo in rewriting cmpc-machine in order to enable cross-compilation for ecl.
Related ticket: https://sourceforge.net/p/ecls/bugs/301/

src/cmp/cmpc-machine.lsp patch | blob | blame | history

diff --git a/src/cmp/cmpc-machine.lsp b/src/cmp/cmpc-machine.lsp
index 2762748..b55b236 100644 (file)
--- a/src/cmp/cmpc-machine.lsp
+++ b/src/cmp/cmpc-machine.lsp
@@ -148,7 +148,7 @@
     ;; hack: sse-pack -> int, but int -> int-sse-pack
     (let ((r (gethash :int-sse-pack table)))
       (when r
-       (setf (rep-type-to-lisp r) 'ext:int-sse-pack)))
+       (setf (rep-type-index r) 'ext:int-sse-pack)))
     ;; On a second pass, we replace types with more general ones
     (loop with fixnum-rep-type = (gethash ':fixnum table)
        with fixnum-lisp-type = (rep-type-lisp-type fixnum-rep-type)
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)