Skip to content
Snippets Groups Projects
Commit 47266cd5 authored by camm's avatar camm
Browse files

Fix bug in main makefile;Newlines at end of test files

parent 361846e4
No related branches found
No related tags found
No related merge requests found
......@@ -202,4 +202,4 @@ the condition to go uncaught if it cannot be classified."
for c = (code-char i)
when c collect c)
'string))
(defconstant +rev-code-chars+ (reverse +code-chars+))
\ No newline at end of file
(defconstant +rev-code-chars+ (reverse +code-chars+))
......@@ -114,4 +114,4 @@
))))
\ No newline at end of file
......@@ -223,4 +223,4 @@
(tailp-7-body)
0)
|#
\ No newline at end of file
......@@ -231,4 +231,4 @@
\ No newline at end of file
......@@ -364,4 +364,4 @@
(return-from fail 'fail))
(not (eq x y)))))
#'<))
(1 2 3 4))
\ No newline at end of file
(1 2 3 4))
......@@ -69,4 +69,4 @@
(deftest function.12
(flet ((%f () nil)) (not (typep #'%f 'function)))
nil)
\ No newline at end of file
nil)
rm -f binary/* rt/binary/*
tar cvf cltest.tar README *.system *.lsp make-tar binary/ rt/*.system rt/*.lsp rt/*.txt rt/binary/
\ No newline at end of file
tar cvf cltest.tar README *.system *.lsp make-tar binary/ rt/*.system rt/*.lsp rt/*.txt rt/binary/
......@@ -544,4 +544,4 @@
(x (copy-seq orig))
(result (nsubstitute-if-not 1 (is-not-eq-p 1) x :key #'1+ :start 1 :end 10)))
result)
#*01111111111010110)
\ No newline at end of file
#*01111111111010110)
......@@ -51,4 +51,4 @@
(in-package "H")
(package-error () 'package-error)
(error (c) c)))
package-error)
\ No newline at end of file
package-error)
......@@ -436,4 +436,4 @@
(handler-case (position-if-not 'identity '(a b c . d))
(type-error () :type-error)
(error (c) c)))
:type-error)
\ No newline at end of file
:type-error)
......@@ -595,4 +595,4 @@
\ No newline at end of file
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment