;*=====================================================================*/ ;* serrano/prgm/project/skribe/src/bigloo/new.sch */ ;* ------------------------------------------------------------- */ ;* Author : Manuel Serrano */ ;* Creation : Sun Aug 17 11:58:30 2003 */ ;* Last change : Wed Sep 10 11:14:15 2003 (serrano) */ ;* Copyright : 2003 Manuel Serrano */ ;* ------------------------------------------------------------- */ ;* The new facility */ ;*=====================================================================*/ ;*---------------------------------------------------------------------*/ ;* new ... */ ;*---------------------------------------------------------------------*/ (define-macro (new id . inits) `(,(symbol-append 'instantiate::% id) ,@inits))