From athas at sigkill.dk  Tue Mar 14 10:28:43 2006
From: athas at sigkill.dk (Troels Henriksen)
Date: Tue, 14 Mar 2006 11:28:43 +0100
Subject: [clim-desktop-devel] Patch: Fix for error-causing Swine bug
Message-ID: <8764mh1fs4.fsf@sigkill.dk>

If the first symbol of a list is a keyword symbol, Swine will signal
an error when it tries to look up its arglist. The attached patch
fixes this issue.

-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: swine-cmds.lisp.diff
URL: <https://mailman.common-lisp.net/pipermail/clim-desktop-devel/attachments/20060314/ca20eed2/attachment.ksh>
-------------- next part --------------

-- 
\  Troels "Athas" Henriksen
/\ - Insert witty signature

From athas at sigkill.dk  Sun Mar 26 14:39:27 2006
From: athas at sigkill.dk (Troels Henriksen)
Date: Sun, 26 Mar 2006 16:39:27 +0200
Subject: [clim-desktop-devel] Mouse-sensitive symbols in buffers!
Message-ID: <874q1l2rts.fsf@sigkill.dk>

Simple, but cool:

(in-package :climacs-lisp-syntax)

(define-presentation-to-command-translator edit-definition
    (symbol com-edit-definition lisp-table
            :gesture :select
            :tester ((object presentation)
                     (declare (ignore object))
                     (not (eq (presentation-type presentation) 'unknown-symbol)))
            :documentation "Edit definition")
    (object)
    (list object))

(define-command (com-inspect-symbol :name t :command-table lisp-table)
    ((symbol 'symbol :prompt "Edit symbol"))
  (clouseau:inspector symbol :new-process t))

(define-presentation-to-command-translator inspect-symbol
    (symbol com-inspect-symbol lisp-table
            :gesture :describe
            :tester ((object presentation)
                     (declare (ignore object))
                     (not (eq (presentation-type presentation) 'unknown-symbol)))
            :documentation "Inspect")
    (object)
    (list object))

This will make various Lisp symbols mouse-sensitive when editing Lisp
code. Should this be in Swine? I think it's cool, but I'm not sure
whether it is genuinely useful or just a gimmick.

-- 
\  Troels "Athas" Henriksen
/\ - Insert witty signature