From c0fb2d2c797c8ff4d769c32c8e032c6bc9e0b249 Mon Sep 17 00:00:00 2001 From: Yukari Hafner Date: Mon, 19 Aug 2024 22:30:42 +0200 Subject: [PATCH] Whoops. --- backends/nxgl/context.lisp | 10 ++++++---- toolkit.lisp | 2 +- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/backends/nxgl/context.lisp b/backends/nxgl/context.lisp index 2ab18d0e..b81bf49a 100644 --- a/backends/nxgl/context.lisp +++ b/backends/nxgl/context.lisp @@ -21,8 +21,8 @@ (robustness NIL robustness-p) (forward-compat NIL forward-compat-p) (debug-context NIL debug-context-p) - double-buffering stereo-buffer title) - (declare (ignore double-buffering stereo-buffer title)) + double-buffering stereo-buffer title visible) + (declare (ignore double-buffering stereo-buffer title visible)) (flet (((setf g) (value name) (setf (getf (initargs context) name) value))) (macrolet ((maybe-set (var &optional (name (intern (string var) :keyword))) `(when ,(let ((*print-case* (readtable-case *readtable*))) @@ -183,6 +183,9 @@ (setf %gl:*gl-get-proc-address* #'nxgl:proc-address) (%gl::reset-gl-pointers)) +(deploy:define-hook (:quit nxgl) () + (nxgl:shutdown)) + (defun trial:launch-with-context (&optional main &rest initargs) (let ((main (apply #'make-instance main initargs))) (start main) @@ -196,8 +199,7 @@ (nxgl:poll (pointer context)) (sleep 0.0001))) (v:debug :trial.backend.nxgl "Cleaning up") - (unwind-protect (finalize main) - (nxgl:shutdown))))) + (finalize main)))) (defun trial:make-context (&optional handler &rest initargs) (apply #'make-instance 'context :handler handler initargs)) diff --git a/toolkit.lisp b/toolkit.lisp index de01d953..e8a3abbc 100644 --- a/toolkit.lisp +++ b/toolkit.lisp @@ -42,7 +42,7 @@ (defun self () #-nx (first (uiop:raw-command-line-arguments)) - #+nx "rom:/sbcl") + #+nx (make-pathname :device "rom" :name "sbcl" :directory '(:absolute))) (defun checksum (file) (with-output-to-string (out)