Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
04429a5b
Commit
04429a5b
authored
Aug 13, 1999
by
dtc
Browse files
Don't access the array CURRENTLY-VALID with an invalid index in
FIND-VALID-STORAGE-LOCATION; from Raymond Toy.
parent
6672d99f
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/disassem.lisp
View file @
04429a5b
...
...
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.2
7
199
7
/0
2
/1
4
1
8
:0
1:21
dtc Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.2
8
199
9
/0
8
/1
3
1
6
:0
3:52
dtc Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -2777,16 +2777,18 @@
(
let
((
debug-var-num
(
typecase
used-by
(
fixnum
(
and
(
not
(
and
(
<
used-by
(
length
currently-valid
))
(
not
(
zerop
(
bit
currently-valid
used-by
)))
used-by
))
(
list
(
some
#'
(
lambda
(
num
)
(
and
(
not
(
zerop
(
bit
currently-valid
num
)))
num
))
used-by
)))))
(
some
#'
(
lambda
(
num
)
(
and
(
<
num
(
length
currently-valid
))
(
not
(
zerop
(
bit
currently-valid
num
)))
num
))
used-by
)))))
(
and
debug-var-num
(
progn
;; Found a valid storage reference!
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment