From: Christophe R. <cr...@us...> - 2013-05-23 20:19:42
|
The branch "master" has been updated in SBCL: via 8ed82d6c5861f42d72162bd32a4b873c255c2f86 (commit) from 2cabe4e99e16a0d92969414b23a8a065e5e41a72 (commit) - Log ----------------------------------------------------------------- commit 8ed82d6c5861f42d72162bd32a4b873c255c2f86 Author: Jingyi Hou <hou...@gm...> Date: Fri May 24 02:20:32 2013 +0800 tweak so that block-delete-p is findable by grep for 'def.*block-delete-p' --- src/compiler/node.lisp | 22 +++++++++++----------- 1 files changed, 11 insertions(+), 11 deletions(-) diff --git a/src/compiler/node.lisp b/src/compiler/node.lisp index 852199e..2e5fd52 100644 --- a/src/compiler/node.lisp +++ b/src/compiler/node.lisp @@ -173,17 +173,17 @@ (!def-boolean-attribute block reoptimize flush-p type-check delete-p type-asserted test-modified) -;;; FIXME: Tweak so that definitions of e.g. BLOCK-DELETE-P is -;;; findable by grep for 'def.*block-delete-p'. -(macrolet ((frob (slot) - `(defmacro ,(symbolicate "BLOCK-" slot) (block) - `(block-attributep (block-flags ,block) ,',slot)))) - (frob reoptimize) - (frob flush-p) - (frob type-check) - (frob delete-p) - (frob type-asserted) - (frob test-modified)) +(macrolet ((defattr (block-slot) + `(defmacro ,block-slot (block) + `(block-attributep + (block-flags ,block) + ,(symbolicate (subseq (string ',block-slot) 6)))))) + (defattr block-reoptimize) + (defattr block-flush-p) + (defattr block-type-check) + (defattr block-delete-p) + (defattr block-type-asserted) + (defattr block-test-modified)) ;;; The CBLOCK structure represents a basic block. We include ;;; SSET-ELEMENT so that we can have sets of blocks. Initially the ----------------------------------------------------------------------- hooks/post-receive -- SBCL |