From 75ca24c60a57ab894da4d404755b8b4094284ad8 Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Wed, 15 Dec 2021 23:58:43 +0300 Subject: chore(3p/lisp): use nixpkgs sources for trivial-backtrace Change-Id: If4ee3f9a0afea74759493de14c7f672714739f45 Reviewed-on: https://cl.tvl.fyi/c/depot/+/4341 Autosubmit: tazjin Tested-by: BuildkiteCI Reviewed-by: grfn --- third_party/lisp/trivial-backtrace.nix | 15 +++ third_party/lisp/trivial-backtrace/.gitignore | 15 --- third_party/lisp/trivial-backtrace/COPYING | 25 ---- third_party/lisp/trivial-backtrace/default.nix | 14 --- .../lisp/trivial-backtrace/dev/backtrace.lisp | 127 --------------------- .../lisp/trivial-backtrace/dev/fallback.lisp | 10 -- .../lisp/trivial-backtrace/dev/map-backtrace.lisp | 105 ----------------- .../lisp/trivial-backtrace/dev/mucking.lisp | 75 ------------ .../lisp/trivial-backtrace/dev/packages.lisp | 13 --- .../lisp/trivial-backtrace/dev/utilities.lisp | 104 ----------------- .../lisp/trivial-backtrace/lift-standard.config | 35 ------ .../lisp/trivial-backtrace/test/packages.lisp | 5 - .../lisp/trivial-backtrace/test/test-setup.lisp | 4 - third_party/lisp/trivial-backtrace/test/tests.lisp | 17 --- .../trivial-backtrace/trivial-backtrace-test.asd | 22 ---- .../lisp/trivial-backtrace/trivial-backtrace.asd | 35 ------ .../lisp/trivial-backtrace/website/source/index.md | 88 -------------- .../website/source/resources/footer.md | 15 --- .../website/source/resources/header.md | 19 --- .../website/source/resources/navigation.md | 2 - .../lisp/trivial-backtrace/website/website.tmproj | 93 --------------- 21 files changed, 15 insertions(+), 823 deletions(-) create mode 100644 third_party/lisp/trivial-backtrace.nix delete mode 100644 third_party/lisp/trivial-backtrace/.gitignore delete mode 100644 third_party/lisp/trivial-backtrace/COPYING delete mode 100644 third_party/lisp/trivial-backtrace/default.nix delete mode 100644 third_party/lisp/trivial-backtrace/dev/backtrace.lisp delete mode 100644 third_party/lisp/trivial-backtrace/dev/fallback.lisp delete mode 100644 third_party/lisp/trivial-backtrace/dev/map-backtrace.lisp delete mode 100644 third_party/lisp/trivial-backtrace/dev/mucking.lisp delete mode 100644 third_party/lisp/trivial-backtrace/dev/packages.lisp delete mode 100644 third_party/lisp/trivial-backtrace/dev/utilities.lisp delete mode 100644 third_party/lisp/trivial-backtrace/lift-standard.config delete mode 100644 third_party/lisp/trivial-backtrace/test/packages.lisp delete mode 100644 third_party/lisp/trivial-backtrace/test/test-setup.lisp delete mode 100644 third_party/lisp/trivial-backtrace/test/tests.lisp delete mode 100644 third_party/lisp/trivial-backtrace/trivial-backtrace-test.asd delete mode 100644 third_party/lisp/trivial-backtrace/trivial-backtrace.asd delete mode 100644 third_party/lisp/trivial-backtrace/website/source/index.md delete mode 100644 third_party/lisp/trivial-backtrace/website/source/resources/footer.md delete mode 100644 third_party/lisp/trivial-backtrace/website/source/resources/header.md delete mode 100644 third_party/lisp/trivial-backtrace/website/source/resources/navigation.md delete mode 100644 third_party/lisp/trivial-backtrace/website/website.tmproj (limited to 'third_party/lisp') diff --git a/third_party/lisp/trivial-backtrace.nix b/third_party/lisp/trivial-backtrace.nix new file mode 100644 index 0000000000..27949e8be1 --- /dev/null +++ b/third_party/lisp/trivial-backtrace.nix @@ -0,0 +1,15 @@ +# Imported from http://common-lisp.net/project/trivial-backtrace/trivial-backtrace.git +{ depot, pkgs, ... }: + +let src = with pkgs; srcOnly lispPackages.trivial-backtrace; +in depot.nix.buildLisp.library { + name = "trivial-backtrace"; + + srcs = map (f: src + ("/dev/" + f)) [ + "packages.lisp" + "utilities.lisp" + "backtrace.lisp" + "map-backtrace.lisp" + "fallback.lisp" + ]; +} diff --git a/third_party/lisp/trivial-backtrace/.gitignore b/third_party/lisp/trivial-backtrace/.gitignore deleted file mode 100644 index 391b10e5db..0000000000 --- a/third_party/lisp/trivial-backtrace/.gitignore +++ /dev/null @@ -1,15 +0,0 @@ -# really this is private to my build process -make/ -common-lisp.net -.vcs -GNUmakefile -init-lisp.lisp -website/changelog.xml - - -trivial-backtrace.tar.gz -website/output/ -test-results/ -lift-local.config -*.dribble -*.fasl diff --git a/third_party/lisp/trivial-backtrace/COPYING b/third_party/lisp/trivial-backtrace/COPYING deleted file mode 100644 index 3798a6664a..0000000000 --- a/third_party/lisp/trivial-backtrace/COPYING +++ /dev/null @@ -1,25 +0,0 @@ -Copyright (c) 2008-2008 Gary Warren King (gwking@metabang.com) - -Permission is hereby granted, free of charge, to any person obtaining a -copy of this software and associated documentation files (the "Software"), -to deal in the Software without restriction, including without limitation -the rights to use, copy, modify, merge, publish, distribute, sublicense, -and/or sell copies of the Software, and to permit persons to whom the -Software is furnished to do so, subject to the following conditions: - -The above copyright notice and this permission notice shall be included in -all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL -THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER -DEALINGS IN THE SOFTWARE. - - - -Copyright (c) 2005-2007 Dr. Edi Weitz - -BSD style license: http://www.opensource.org/licenses/bsd-license.php diff --git a/third_party/lisp/trivial-backtrace/default.nix b/third_party/lisp/trivial-backtrace/default.nix deleted file mode 100644 index bdd057cade..0000000000 --- a/third_party/lisp/trivial-backtrace/default.nix +++ /dev/null @@ -1,14 +0,0 @@ -# Imported from http://common-lisp.net/project/trivial-backtrace/trivial-backtrace.git -{ depot, ... }: - -depot.nix.buildLisp.library { - name = "trivial-backtrace"; - - srcs = [ - ./dev/packages.lisp - ./dev/utilities.lisp - ./dev/backtrace.lisp - ./dev/map-backtrace.lisp - ./dev/fallback.lisp - ]; -} diff --git a/third_party/lisp/trivial-backtrace/dev/backtrace.lisp b/third_party/lisp/trivial-backtrace/dev/backtrace.lisp deleted file mode 100644 index aa3951e30f..0000000000 --- a/third_party/lisp/trivial-backtrace/dev/backtrace.lisp +++ /dev/null @@ -1,127 +0,0 @@ -(in-package #:trivial-backtrace) - -(defun print-condition (condition stream) - "Print `condition` to `stream` using the pretty printer." - (format - stream - "~@~%~%" - condition)) - -(defun print-backtrace (error &key (output *debug-io*) - (if-exists :append) - (verbose nil)) - "Send a backtrace for the error `error` to `output`. - -The keywords arguments are: - - * :output - where to send the output. This can be: - - * a string (which is assumed to designate a pathname) - * an open stream - * nil to indicate that the backtrace information should be - returned as a string - - * if-exists - what to do if output designates a pathname and - the pathname already exists. Defaults to :append. - - * verbose - if true, then a message about the backtrace is sent - to \\*terminal-io\\*. Defaults to `nil`. - -If the `output` is nil, the returns the backtrace output as a -string. Otherwise, returns nil. -" - (when verbose - (print-condition error *terminal-io*)) - (multiple-value-bind (stream close?) - (typecase output - (null (values (make-string-output-stream) nil)) - (string (values (open output :if-exists if-exists - :if-does-not-exist :create - :direction :output) t)) - (stream (values output nil))) - (unwind-protect - (progn - (format stream "~&Date/time: ~a" (date-time-string)) - (print-condition error stream) - (terpri stream) - (print-backtrace-to-stream stream) - (terpri stream) - (when (typep stream 'string-stream) - (get-output-stream-string stream))) - ;; cleanup - (when close? - (close stream))))) - -#+(or mcl ccl) -(defun print-backtrace-to-stream (stream) - (let ((*debug-io* stream)) - (ccl:print-call-history :detailed-p nil))) - -#+allegro -(defun print-backtrace-to-stream (stream) - (with-standard-io-syntax - (let ((*print-readably* nil) - (*print-miser-width* 40) - (*print-pretty* t) - (tpl:*zoom-print-circle* t) - (tpl:*zoom-print-level* nil) - (tpl:*zoom-print-length* nil)) - (cl:ignore-errors - (let ((*terminal-io* stream) - (*standard-output* stream)) - (tpl:do-command "zoom" - :from-read-eval-print-loop nil - :count t - :all t)))))) - -#+lispworks -(defun print-backtrace-to-stream (stream) - (let ((dbg::*debugger-stack* - (dbg::grab-stack nil :how-many most-positive-fixnum)) - (*debug-io* stream) - (dbg:*debug-print-level* nil) - (dbg:*debug-print-length* nil)) - (dbg:bug-backtrace nil))) - -#+sbcl -;; determine how we're going to access the backtrace in the next -;; function -(eval-when (:compile-toplevel :load-toplevel :execute) - (when (find-symbol "*DEBUG-PRINT-VARIABLE-ALIST*" :sb-debug) - (pushnew :sbcl-debug-print-variable-alist *features*))) - -#+sbcl -(defun print-backtrace-to-stream (stream) - (let (#+:sbcl-debug-print-variable-alist - (sb-debug:*debug-print-variable-alist* - (list* '(*print-level* . nil) - '(*print-length* . nil) - sb-debug:*debug-print-variable-alist*)) - #-:sbcl-debug-print-variable-alist - (sb-debug:*debug-print-level* nil) - #-:sbcl-debug-print-variable-alist - (sb-debug:*debug-print-length* nil)) - (sb-debug:backtrace most-positive-fixnum stream))) - -#+clisp -(defun print-backtrace-to-stream (stream) - (system::print-backtrace :out stream)) - -#+(or cmucl scl) -(defun print-backtrace-to-stream (stream) - (let ((debug:*debug-print-level* nil) - (debug:*debug-print-length* nil)) - (debug:backtrace most-positive-fixnum stream))) - - -;; must be after the defun above or the docstring may be wiped out -(setf (documentation 'print-backtrace-to-stream 'function) - "Send a backtrace of the current error to stream. - -Stream is assumed to be an open writable file stream or a -string-output-stream. Note that `print-backtrace-to-stream` -will print a backtrace for whatever the Lisp deems to be the -*current* error. -") - - diff --git a/third_party/lisp/trivial-backtrace/dev/fallback.lisp b/third_party/lisp/trivial-backtrace/dev/fallback.lisp deleted file mode 100644 index 40a5219824..0000000000 --- a/third_party/lisp/trivial-backtrace/dev/fallback.lisp +++ /dev/null @@ -1,10 +0,0 @@ -(in-package #:trivial-backtrace) - -(eval-when (:compile-toplevel :load-toplevel :execute) - (unless (fboundp 'map-backtrace) - (defun map-backtrace (func) - (declare (ignore func)))) - - (unless (fboundp 'print-backtrace-to-stream) - (defun print-backtrace-to-stream (stream) - (format stream "~&backtrace output unavailable.~%")))) diff --git a/third_party/lisp/trivial-backtrace/dev/map-backtrace.lisp b/third_party/lisp/trivial-backtrace/dev/map-backtrace.lisp deleted file mode 100644 index 43eddda475..0000000000 --- a/third_party/lisp/trivial-backtrace/dev/map-backtrace.lisp +++ /dev/null @@ -1,105 +0,0 @@ -(in-package #:trivial-backtrace) - -(defstruct frame - func - source-filename - source-pos - vars) - -(defstruct var - name - value) - -(defstruct pos-form-number - number) - -(defmethod print-object ((pos-form-number pos-form-number) stream) - (cond - (*print-readably* (call-next-method)) - (t - (format stream "f~A" (pos-form-number-number pos-form-number))))) - - -(defvar *trivial-backtrace-frame-print-specials* - '((*print-length* . 100) - (*print-level* . 20) - (*print-lines* . 5) - (*print-pretty* . t) - (*print-readably* . nil))) - -(defun print-frame (frame stream) - (format stream "~A:~@[~A:~] ~A: ~%" - (or (ignore-errors (translate-logical-pathname (frame-source-filename frame))) (frame-source-filename frame) "") - (frame-source-pos frame) - (frame-func frame)) - (loop for var in (frame-vars frame) - do - (format stream " ~A = ~A~%" (var-name var) - (or (ignore-errors - (progv - (mapcar #'car *trivial-backtrace-frame-print-specials*) - (mapcar #'cdr *trivial-backtrace-frame-print-specials*) - (prin1-to-string - (var-value var)))) - "")))) - -(defun map-backtrace (function) - (impl-map-backtrace function)) - -(defun print-map-backtrace (&optional (stream *debug-io*) &rest args) - (apply 'map-backtrace - (lambda (frame) - (print-frame frame stream)) args)) - -(defun backtrace-string (&rest args) - (with-output-to-string (stream) - (apply 'print-map-backtrace stream args))) - - -#+ccl -(defun impl-map-backtrace (func) - (ccl::map-call-frames (lambda (ptr) - (multiple-value-bind (lfun pc) - (ccl::cfp-lfun ptr) - (let ((source-note (ccl:function-source-note lfun))) - (funcall func - (make-frame :func (ccl::lfun-name lfun) - :source-filename (ccl:source-note-filename source-note) - :source-pos (let ((form-number (ccl:source-note-start-pos source-note))) - (when form-number (make-pos-form-number :number form-number))) - :vars (loop for (name . value) in (ccl::arguments-and-locals nil ptr lfun pc) - collect (make-var :name name :value value))))))))) - -#+sbcl -(defun impl-map-backtrace (func) - (loop for f = (or sb-debug:*stack-top-hint* (sb-di:top-frame)) then (sb-di:frame-down f) - while f - do (funcall func - (make-frame :func - (ignore-errors - (sb-di:debug-fun-name - (sb-di:frame-debug-fun f))) - :source-filename - (ignore-errors - (sb-di:debug-source-namestring (sb-di:code-location-debug-source (sb-di:frame-code-location f)))) - :source-pos - (ignore-errors ;;; XXX does not work - (let ((cloc (sb-di:frame-code-location f))) - (unless (sb-di:code-location-unknown-p cloc) - (format nil "tlf~Dfn~D" - (sb-di:code-location-toplevel-form-offset cloc) - (sb-di:code-location-form-number cloc))))) - :vars - (remove-if 'not - (map 'list (lambda(v) - (ignore-errors - (when (eq :valid - (sb-di:debug-var-validity v (sb-di:frame-code-location f))) - (make-var :name (sb-di:debug-var-symbol v) - :value (sb-di:debug-var-value v f))))) - (ignore-errors (sb-di::debug-fun-debug-vars (sb-di:frame-debug-fun f))))))))) - -#-(or ccl sbcl) -(defun impl-map-backtrace (func) - (declare (ignore func)) - (warn "unable to map backtrace for ~a" (lisp-implementation-type))) \ No newline at end of file diff --git a/third_party/lisp/trivial-backtrace/dev/mucking.lisp b/third_party/lisp/trivial-backtrace/dev/mucking.lisp deleted file mode 100644 index 2be26a5a87..0000000000 --- a/third_party/lisp/trivial-backtrace/dev/mucking.lisp +++ /dev/null @@ -1,75 +0,0 @@ -(in-package #:metabang.gsn) - -#| -Need to account for different kinds of links - in gsn-nodes-from-json, need to return pairs of node and attributes - -hash-table for nodes to prevent duplicates -queue or stack for nodes to expand -hash-table for links (triples of A link B?) to handle duplicates -|# - -(defgeneric expand-node (context node) - ) - -(defgeneric find-neighbors (context node) - ) - -(defgeneric expand-node-p (context node) - ) - -(defgeneric add-node (context node) - ) - -(defgeneric add-link (context node neighbor direction) - ) - -(defgeneric update-node-data (context node data) - ) - -(defclass abstract-context () - ()) - -(defclass gsn-context (abstract-context) - ()) - -(defparameter +gsn-root+ "http://socialgraph.apis.google.com/") - -(defmethod expand-node ((context abstract-context) node) - (bind (((to from) (find-neighbors context node))) - (dolist (neighbor to) - (add-node context neighbor) - (add-link context node neighbor :to)) - (dolist (neighbor from) - (add-node context neighbor) - (add-link context node neighbor :from)))) - - - -(defmethod find-neighbors ((context gsn-context) node) - (bind (((result headers stream) - (http-get - (format nil "~alookup?edo=1&edi=1&pretty=1&q=~a" - +gsn-root+ node))) - json) - (unwind-protect - (setf json (json:decode-json stream)) - (close strea)) - (update-node-data context node json) - (list (gsn-nodes-from-json json :to) - (gsn-nodes-from-json json :from)))) - -(gsn-nodes-from-json x :from) - -(defun gsn-test (who) - (destructuring-bind (result headers stream) - (http-get - (format nil "http://socialgraph.apis.google.com/lookup?edo=1&edi=1&pretty=1&q=~a" who)) - (declare (ignore result headers)) - (json:decode-json stream))) - -(assoc :nodes_referenced - (assoc :nodes (gsn-test "TWITTER.COM/GWKING") :key #'first)) - - -(setf x (gsn-test "TWITTER.COM/GWKING")) diff --git a/third_party/lisp/trivial-backtrace/dev/packages.lisp b/third_party/lisp/trivial-backtrace/dev/packages.lisp deleted file mode 100644 index 2da49d3d9b..0000000000 --- a/third_party/lisp/trivial-backtrace/dev/packages.lisp +++ /dev/null @@ -1,13 +0,0 @@ -(in-package #:common-lisp-user) - -(defpackage #:trivial-backtrace - (:use #:common-lisp) - (:export #:print-backtrace - #:print-backtrace-to-stream - #:print-condition - #:*date-time-format* - - - #:backtrace-string - #:map-backtrace)) - diff --git a/third_party/lisp/trivial-backtrace/dev/utilities.lisp b/third_party/lisp/trivial-backtrace/dev/utilities.lisp deleted file mode 100644 index b0a249867a..0000000000 --- a/third_party/lisp/trivial-backtrace/dev/utilities.lisp +++ /dev/null @@ -1,104 +0,0 @@ -(in-package #:trivial-backtrace) - -(defparameter *date-time-format* "%Y-%m-%d-%H:%M" - "The default format to use when printing dates and times. - -* %% - A '%' character -* %d - Day of the month as a decimal number [01-31] -* %e - Same as %d but does not print the leading 0 for days 1 through 9 - [unlike strftime[], does not print a leading space] -* %H - Hour based on a 24-hour clock as a decimal number [00-23] -*%I - Hour based on a 12-hour clock as a decimal number [01-12] -* %m - Month as a decimal number [01-12] -* %M - Minute as a decimal number [00-59] -* %S - Second as a decimal number [00-59] -* %w - Weekday as a decimal number [0-6], where Sunday is 0 -* %y - Year without century [00-99] -* %Y - Year with century [such as 1990] - -This code is borrowed from the `format-date` function in -[metatilities-base][].") - -;; modified from metatilities-base -(eval-when (:compile-toplevel :load-toplevel :execute) - (defmacro generate-time-part-function (part-name position) - (let ((function-name - (intern - (concatenate 'string - (symbol-name 'time) "-" (symbol-name part-name)) - :trivial-backtrace))) - `(eval-when (:compile-toplevel :load-toplevel :execute) - (defun ,function-name - (&optional (universal-time (get-universal-time)) - (time-zone nil)) - ,(format nil "Returns the ~(~A~) part of the given time." part-name) - (nth-value ,position - (apply #'decode-universal-time - universal-time time-zone)))))) - - (generate-time-part-function second 0) - (generate-time-part-function minute 1) - (generate-time-part-function hour 2) - (generate-time-part-function date 3) - (generate-time-part-function month 4) - (generate-time-part-function year 5) - (generate-time-part-function day-of-week 6) - (generate-time-part-function daylight-savings-time-p 7)) - -(defun date-time-string (&key (date/time (get-universal-time)) - (format *date-time-format*)) - (format-date format date/time nil)) - -(defun format-date (format date &optional stream time-zone) - (declare (ignore time-zone)) - (let ((format-length (length format))) - (format - stream "~{~A~}" - (loop for index = 0 then (1+ index) - while (< index format-length) collect - (let ((char (aref format index))) - (cond - ((char= #\% char) - (setf char (aref format (incf index))) - (cond - ;; %% - A '%' character - ((char= char #\%) #\%) - - ;; %d - Day of the month as a decimal number [01-31] - ((char= char #\d) (format nil "~2,'0D" (time-date date))) - - ;; %e - Same as %d but does not print the leading 0 for - ;; days 1 through 9. Unlike strftime, does not print a - ;; leading space - ((char= char #\e) (format nil "~D" (time-date date))) - - ;; %H - Hour based on a 24-hour clock as a decimal number [00-23] - ((char= char #\H) (format nil "~2,'0D" (time-hour date))) - - ;; %I - Hour based on a 12-hour clock as a decimal number [01-12] - ((char= char #\I) (format nil "~2,'0D" - (1+ (mod (time-hour date) 12)))) - - ;; %m - Month as a decimal number [01-12] - ((char= char #\m) (format nil "~2,'0D" (time-month date))) - - ;; %M - Minute as a decimal number [00-59] - ((char= char #\M) (format nil "~2,'0D" (time-minute date))) - - ;; %S - Second as a decimal number [00-59] - ((char= char #\S) (format nil "~2,'0D" (time-second date))) - - ;; %w - Weekday as a decimal number [0-6], where Sunday is 0 - ((char= char #\w) (format nil "~D" (time-day-of-week date))) - - ;; %y - Year without century [00-99] - ((char= char #\y) - (let ((year-string (format nil "~,2A" (time-year date)))) - (subseq year-string (- (length year-string) 2)))) - - ;; %Y - Year with century [such as 1990] - ((char= char #\Y) (format nil "~D" (time-year date))) - - (t - (error "Ouch - unknown formatter '%~c" char)))) - (t char))))))) diff --git a/third_party/lisp/trivial-backtrace/lift-standard.config b/third_party/lisp/trivial-backtrace/lift-standard.config deleted file mode 100644 index 0f22312080..0000000000 --- a/third_party/lisp/trivial-backtrace/lift-standard.config +++ /dev/null @@ -1,35 +0,0 @@ -;;; configuration for LIFT tests - -;; settings -(:if-dribble-exists :supersede) -(:dribble "lift.dribble") -(:print-length 10) -(:print-level 5) -(:print-test-case-names t) - -;; suites to run -(trivial-backtrace-test) - -;; report properties -(:report-property :title "Trivial-Backtrace | Test results") -(:report-property :relative-to trivial-backtrace-test) - -(:report-property :style-sheet "test-style.css") -(:report-property :if-exists :supersede) -(:report-property :format :html) -(:report-property :full-pathname "test-results/test-report.html") -(:report-property :unique-name t) -(:build-report) - -(:report-property :unique-name t) -(:report-property :format :describe) -(:report-property :full-pathname "test-results/test-report.txt") -(:build-report) - -(:report-property :format :save) -(:report-property :full-pathname "test-results/test-report.sav") -(:build-report) - -(:report-property :format :describe) -(:report-property :full-pathname *standard-output*) -(:build-report) diff --git a/third_party/lisp/trivial-backtrace/test/packages.lisp b/third_party/lisp/trivial-backtrace/test/packages.lisp deleted file mode 100644 index 7dc3eae576..0000000000 --- a/third_party/lisp/trivial-backtrace/test/packages.lisp +++ /dev/null @@ -1,5 +0,0 @@ -(in-package #:common-lisp-user) - -(defpackage #:trivial-backtrace-test - (:use #:common-lisp #:lift #:trivial-backtrace)) - diff --git a/third_party/lisp/trivial-backtrace/test/test-setup.lisp b/third_party/lisp/trivial-backtrace/test/test-setup.lisp deleted file mode 100644 index a46b3a1966..0000000000 --- a/third_party/lisp/trivial-backtrace/test/test-setup.lisp +++ /dev/null @@ -1,4 +0,0 @@ -(in-package #:trivial-backtrace-test) - -(deftestsuite trivial-backtrace-test () - ()) diff --git a/third_party/lisp/trivial-backtrace/test/tests.lisp b/third_party/lisp/trivial-backtrace/test/tests.lisp deleted file mode 100644 index 9b32090f13..0000000000 --- a/third_party/lisp/trivial-backtrace/test/tests.lisp +++ /dev/null @@ -1,17 +0,0 @@ -(in-package #:trivial-backtrace-test) - -(deftestsuite generates-backtrace (trivial-backtrace-test) - ()) - -(addtest (generates-backtrace) - test-1 - (let ((output nil)) - (handler-case - (let ((x 1)) - (let ((y (- x (expt 1024 0)))) - (declare (optimize (safety 3))) - (/ 2 y))) - (error (c) - (setf output (print-backtrace c :output nil)))) - (ensure (stringp output)) - (ensure (plusp (length output))))) diff --git a/third_party/lisp/trivial-backtrace/trivial-backtrace-test.asd b/third_party/lisp/trivial-backtrace/trivial-backtrace-test.asd deleted file mode 100644 index cb088434a2..0000000000 --- a/third_party/lisp/trivial-backtrace/trivial-backtrace-test.asd +++ /dev/null @@ -1,22 +0,0 @@ -(defpackage #:trivial-backtrace-test-system (:use #:asdf #:cl)) -(in-package #:trivial-backtrace-test-system) - -(defsystem trivial-backtrace-test - :author "Gary Warren King " - :maintainer "Gary Warren King " - :licence "MIT Style License; see file COPYING for details" - :components ((:module - "setup" - :pathname "test/" - :components ((:file "packages") - (:file "test-setup" - :depends-on ("packages")))) - (:module - "test" - :pathname "test/" - :depends-on ("setup") - :components ((:file "tests")))) - :depends-on (:lift :trivial-backtrace)) - - - diff --git a/third_party/lisp/trivial-backtrace/trivial-backtrace.asd b/third_party/lisp/trivial-backtrace/trivial-backtrace.asd deleted file mode 100644 index 843b6cc39a..0000000000 --- a/third_party/lisp/trivial-backtrace/trivial-backtrace.asd +++ /dev/null @@ -1,35 +0,0 @@ -(in-package #:common-lisp-user) - -(defpackage #:trivial-backtrace-system (:use #:asdf #:cl)) -(in-package #:trivial-backtrace-system) - -(defsystem trivial-backtrace - :version "1.1.0" - :author "Gary Warren King and contributors" - :maintainer "Gary Warren King and contributors" - :licence "MIT Style license " - :description "trivial-backtrace" - :depends-on () - :components - ((:static-file "COPYING") - (:module - "setup" - :pathname "dev/" - :components ((:file "packages"))) - (:module - "dev" - :depends-on ("setup") - :components ((:file "utilities") - (:file "backtrace") - (:file "map-backtrace") - (:file "fallback" :depends-on ("backtrace" "map-backtrace"))))) - :in-order-to ((test-op (load-op trivial-backtrace-test))) - :perform (test-op :after (op c) - (funcall - (intern (symbol-name '#:run-tests) :lift) - :config :generic))) - -(defmethod operation-done-p - ((o test-op) - (c (eql (find-system 'trivial-backtrace)))) - (values nil)) diff --git a/third_party/lisp/trivial-backtrace/website/source/index.md b/third_party/lisp/trivial-backtrace/website/source/index.md deleted file mode 100644 index 93a5df3b91..0000000000 --- a/third_party/lisp/trivial-backtrace/website/source/index.md +++ /dev/null @@ -1,88 +0,0 @@ -{include resources/header.md} - -
-
- - * [Mailing Lists][mailing-list] - * [Getting it][downloads] - * [Documentation][] - * [News][] - * [Test results][tr] - * [Changelog][] - -
-
- -### What it is - -On of the many things that didn't quite get into the Common -Lisp standard was how to get a Lisp to output its call stack -when something has gone wrong. As such, each Lisp has -developed its own notion of what to display, how to display -it, and what sort of arguments can be used to customize it. -`trivial-backtrace` is a simple solution to generating a -backtrace portably. As of {today}, it supports Allegro Common -Lisp, LispWorks, ECL, MCL, SCL, SBCL and CMUCL. Its -interface consists of three functions and one variable: - - * print-backtrace - * print-backtrace-to-stream - * print-condition - * \*date-time-format\* - -You can probably already guess what they do, but they are -described in more detail below. - -{anchor mailing-lists} - -### Mailing Lists - - * [trivial-backtrace-devel][devel-list]: A list for - announcements, questions, patches, bug reports, and so - on; It's for anything and everything - -### API - -{set-property docs-package trivial-backtrace} -{docs print-backtrace} -{docs print-backtrace-to-stream} -{docs print-condition} -{docs *date-time-format*} - -{anchor downloads} - -### Where is it - -A [git][] repository is available using - - git clone http://common-lisp.net/project/trivial-backtrace/trivial-backtrace.git - -The [darcs][] repository is still around but is **not** being updated. -The command to get it is below: - - ;;; WARNING: out of date - darcs get http://common-lisp.net/project/trivial-backtrace/ - -trivial-backtrace is also [ASDF installable][asdf-install]. -Its CLiki home is right [where][cliki-home] you'd expect. - -There's also a handy [gzipped tar file][tarball]. - -{anchor news} - -### What is happening - -
-
14 May 2009
-
Moved to [git][]; John Fremlin adds map-backtrace -
- -
1 June 2008
-
Release version 1.0 -
-
-
-
- -{include resources/footer.md} - diff --git a/third_party/lisp/trivial-backtrace/website/source/resources/footer.md b/third_party/lisp/trivial-backtrace/website/source/resources/footer.md deleted file mode 100644 index c5bf3c4ec3..0000000000 --- a/third_party/lisp/trivial-backtrace/website/source/resources/footer.md +++ /dev/null @@ -1,15 +0,0 @@ - diff --git a/third_party/lisp/trivial-backtrace/website/source/resources/header.md b/third_party/lisp/trivial-backtrace/website/source/resources/header.md deleted file mode 100644 index 2738c47137..0000000000 --- a/third_party/lisp/trivial-backtrace/website/source/resources/header.md +++ /dev/null @@ -1,19 +0,0 @@ -{include shared-links.md} - -{set-property html yes} -{set-property style-sheet "styles.css"} -{set-property author "Gary Warren King"} -{set-property title "trivial-backtrace | watch where you've been"} - - [devel-list]: http://common-lisp.net/cgi-bin/mailman/listinfo/trivial-backtrace-devel - [cliki-home]: http://www.cliki.net//trivial-backtrace - [tarball]: http://common-lisp.net/project/trivial-backtrace/trivial-backtrace.tar.gz - - diff --git a/third_party/lisp/trivial-backtrace/website/source/resources/navigation.md b/third_party/lisp/trivial-backtrace/website/source/resources/navigation.md deleted file mode 100644 index a734edfb83..0000000000 --- a/third_party/lisp/trivial-backtrace/website/source/resources/navigation.md +++ /dev/null @@ -1,2 +0,0 @@ - diff --git a/third_party/lisp/trivial-backtrace/website/website.tmproj b/third_party/lisp/trivial-backtrace/website/website.tmproj deleted file mode 100644 index 01b745ba44..0000000000 --- a/third_party/lisp/trivial-backtrace/website/website.tmproj +++ /dev/null @@ -1,93 +0,0 @@ - - - - - currentDocument - source/resources/header.md - documents - - - expanded - - name - source - regexFolderFilter - !.*/(\.[^/]*|CVS|_darcs|_MTN|\{arch\}|blib|.*~\.nib|.*\.(framework|app|pbproj|pbxproj|xcode(proj)?|bundle))$ - sourceDirectory - source - - - fileHierarchyDrawerWidth - 190 - metaData - - source/index.md - - caret - - column - 0 - line - 0 - - firstVisibleColumn - 0 - firstVisibleLine - 0 - - source/resources/footer.md - - caret - - column - 29 - line - 9 - - firstVisibleColumn - 0 - firstVisibleLine - 0 - - source/resources/header.md - - caret - - column - 27 - line - 3 - - firstVisibleColumn - 0 - firstVisibleLine - 0 - - source/resources/navigation.md - - caret - - column - 0 - line - 1 - - firstVisibleColumn - 0 - firstVisibleLine - 0 - - - openDocuments - - source/resources/header.md - source/index.md - source/resources/navigation.md - source/resources/footer.md - - showFileHierarchyDrawer - - windowFrame - {{615, 0}, {578, 778}} - - -- cgit 1.4.1