Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP

Loading…

Clean fix for FIRST-BYTE, SECOND-BYTE, THIRD-BYTE #7

Merged
merged 1 commit into from

2 participants

@eadmund

SBCL's ~R prints out in lowercase; this patch works around that by using READ-FROM-STRING to treat it like an ordinary read.

This may cause problems with inverted readcase.

@froydnj froydnj merged commit 2bf28f2 into froydnj:master
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Commits on Jan 30, 2012
  1. @eadmund

    Fixed bug with string case

    eadmund authored
This page is out of date. Refresh to see the latest.
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/common.lisp
View
4 src/common.lisp
@@ -49,7 +49,7 @@
;;; These functions are named according to big-endian conventions. The
;;; comment is here because I always forget and need to be reminded.
#.(loop for i from 1 to 8
- collect (let ((name (intern (format nil "~:R-~A" i '#:byte))))
+ collect (let ((name (read-from-string (format nil "~:R-~A" i '#:byte))))
`(progn
(declaim (inline ,name))
(declaim (ftype (function (unsigned-byte) (unsigned-byte 8)) ,name))
@@ -452,4 +452,4 @@ behavior."
(list (nthcdr start list) (cdr list))
(xsubseq subseq (cdr xsubseq)))
((>= i length) subseq)
- (setf (first xsubseq) (first list)))))
+ (setf (first xsubseq) (first list)))))
Something went wrong with that request. Please try again.