This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun simd-downcase (vector start end) | |
;; (declare (type index start end) | |
;; (optimize speed (safety 0))) | |
(let ((pages #.(map '(vector (unsigned-byte 32)) | |
(lambda (x) | |
(ash x 6)) | |
sb-impl::+character-case-pages+)) | |
(cases sb-impl::+character-cases+)) | |
(declare (optimize sb-c::preserve-single-use-debug-variables)) | |
(with-pinned-objects (vector pages) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun map-csv-file (fun file) | |
(let ((buffer (make-string 512))) | |
(with-open-file (stream file) | |
(let (fields | |
(read 0) | |
(start 0) | |
concat | |
escaping) | |
(loop | |
do |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun call-tree (function output-file &optional allow-packages) | |
(with-open-file (stream output-file :if-exists :supersede | |
:if-does-not-exist :create | |
:direction :output) | |
(write-line "digraph G {" stream) | |
(write-line "node [fontname = \"monospace\"];" stream) | |
(write-line "node [shape=box];" stream) | |
(let ((id 0) | |
(ids (make-hash-table :test #'eq)) | |
(allow-packages (mapcar #'find-package allow-packages))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git a/swank/sbcl.lisp b/swank/sbcl.lisp | |
index a09e04b3..78038659 100644 | |
--- a/swank/sbcl.lisp | |
+++ b/swank/sbcl.lisp | |
@@ -979,7 +979,8 @@ QUALITIES is an alist with (quality . value)" | |
(make-location `(:file ,(namestring | |
(translate-logical-pathname pathname))) | |
'(:position 1) | |
- (when (eql type :function) | |
+ (when (and (eql type :function) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
git clone git://git.code.sf.net/p/sbcl/sbcl-page | |
cp ~/lisp/impl/sbcl /tmp/sbcl | |
cd /tmp/sbcl | |
git checkout sbcl-2.0.0 | |
cd ~/c/sbcl-page | |
git pull | |
rmdir sbcl | |
ln -s /tmp/sbcl . |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun foo (&rest params) | |
(if params | |
(assert (every #'null params)))) | |
(defvar *x* | |
(make-list 10000)) | |
(loop repeat 8 | |
do (sb-thread:make-thread | |
(lambda () |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#define _GNU_SOURCE | |
#include <stdio.h> | |
#include <signal.h> | |
#include <setjmp.h> | |
#include <fenv.h> | |
jmp_buf unwind; | |
void handler(int signum) | |
{ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(sb-c:defknown simd-ref ((simple-array double-float (*)) sb-int:index) | |
(simd-pack double-float) | |
(sb-c:movable sb-c:flushable sb-c:always-translatable) | |
:overwrite-fndb-silently t) | |
(define-vop (simd-ref) | |
(:translate simd-example::simd-ref) | |
(:policy :fast-safe) | |
(:args (array :scs (descriptor-reg)) | |
(index :scs (any-reg))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun test (a b) | |
(declare (optimize speed (debug 1))) | |
(labels ((fun () | |
10)) | |
(if a | |
(if b | |
(+ (fun) 2) | |
(fun))))) | |
(defun test (a b) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git a/src/assembly/master.lisp b/src/assembly/master.lisp | |
index 24393760f..b5d3186f8 100644 | |
--- a/src/assembly/master.lisp | |
+++ b/src/assembly/master.lisp | |
@@ -4,6 +4,7 @@ | |
(make-pathname :type "lisp")) | |
:verbose nil :print nil)) | |
'("src/assembly/target/tramps" | |
+ "src/assembly/target/runtime-rtns" | |
"src/assembly/target/assem-rtns" |
NewerOlder