Skip to content

Fix compatibily issue with Allegro CL Modern mode #3

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Fix compatibily issue with Allegro CL Modern mode #3

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 4 additions & 4 deletions src/main.lisp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -8,7 +8,7 @@

(defparameter *element-type* '(unsigned-byte 8))

(defparameter *dummy-vector* (make-array 1 :element-type 'string :adjustable T :fill-pointer 0))
(defparameter *dummy-vector* (make-array 1 :element-type 'string :adjustable t :fill-pointer 0))
;; Struct for containing sheet information
(defstruct sheet
(unique-strings *dummy-vector*
Expand Down Expand Up @@ -78,7 +78,7 @@
sheet-struct
))))))

(defmacro with-open-excel-sheet ((pathname sheet-index sheet-symbol &optional (silent T)) &body body)
(defmacro with-open-excel-sheet ((pathname sheet-index sheet-symbol &optional (silent t)) &body body)
"Open excel sheet, and execute body. Sheet struct is bound to sheet-symbol"
(let ((result-var (gensym "result-")))
`(let* ((,sheet-symbol (read-sheet ,pathname ,sheet-index :silent ,silent))
Expand All @@ -89,7 +89,7 @@
,result-var)))

;; similar but uses all sheets
(defmacro with-all-excel-sheets ((pathname sheet-symbol index-symbol name-symbol &optional (silent T)) &body body)
(defmacro with-all-excel-sheets ((pathname sheet-symbol index-symbol name-symbol &optional (silent t)) &body body)
"For every sheet in excel file, execute body. Sheet struct is bound to sheet-symbol.
Sheet index is bound to index-symbol.
Sheet name is bound to name-symbol"
Expand Down Expand Up @@ -322,7 +322,7 @@
;; simple helper
(defun sheet-first-row (sheet-struct)
"Obtain first row of sheet"
(car (process-sheet sheet-struct :max-row 1 :silent T)))
(car (process-sheet sheet-struct :max-row 1 :silent t)))


;; helper for column info
Expand Down
2 changes: 1 addition & 1 deletion src/metadata.lisp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -27,7 +27,7 @@
"Retrieves VECTOR of unique strings used on the file. Will be used later for retrieving string values from the xlsx file."
(let ((vector (make-array *initial-unique-strings-array-size* :element-type 'string
:fill-pointer 0
:adjustable T)))
:adjustable t)))
(loop for str in (xmls:xmlrep-find-child-tags :si (get-entry "xl/sharedStrings.xml" zip))
for x = (xmls:xmlrep-find-child-tag :t str)
do
Expand Down
2 changes: 1 addition & 1 deletion src/util.lisp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@
(eval-when (:compile-toplevel :load-toplevel :execute)
(defparameter *regex* (cl-ppcre:create-scanner "^[A-Z]+"
:case-insensitive-mode nil
:single-line-mode T)
:single-line-mode t)
"Regex to capture column number (alphanumerical, i.e. 'AA')"))

(defun get-column-label (str)
Expand Down