Permalink
Browse files

0.8.18.11:

	Maybe fix the clisp build bug (reported by Pascal Bourguignon)
  • Loading branch information...
1 parent 584a5ce commit 3820ea37e9a430300e3428a6b0033bd663d6188a @csrhodes csrhodes committed Jan 2, 2005
Showing with 7 additions and 3 deletions.
  1. +6 −2 src/compiler/node.lisp
  2. +1 −1 version.lisp-expr
View
8 src/compiler/node.lisp
@@ -283,7 +283,11 @@
;;; component.
(def!struct (component (:copier nil)
(:constructor
- make-component (head tail &aux (last-block tail))))
+ make-component
+ (head
+ tail &aux
+ (last-block tail)
+ (outer-loop (make-loop :kind :outer :head head)))))
;; unique ID for debugging
#!+sb-show (id (new-object-id) :read-only t)
;; the kind of component
@@ -388,7 +392,7 @@
;; this is filled by physical environment analysis
(dx-lvars nil :type list)
;; The default LOOP in the component.
- (outer-loop (make-loop :kind :outer :head head) :type cloop))
+ (outer-loop (missing-arg) :type cloop))
(defprinter (component :identity t)
name
#!+sb-show id
View
2 version.lisp-expr
@@ -17,4 +17,4 @@
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.18.10"
+"0.8.18.11"

0 comments on commit 3820ea3

Please sign in to comment.