Permalink
Browse files

replaced clack.util:namespace by defpackage.

  • Loading branch information...
1 parent d0be18b commit d34bebe15a69a9252881fb33999c2d33c96485ff @fukamachi committed May 23, 2012
Showing with 12 additions and 4 deletions.
  1. +3 −1 skeleton/lib/view/emb.lisp
  2. +3 −1 skeleton/src/app.lisp
  3. +3 −1 skeleton/src/controller.lisp
  4. +3 −1 skeleton/src/skeleton.lisp
View
4 skeleton/lib/view/emb.lisp
@@ -3,10 +3,12 @@
<% @if author %> Copyright (c) <%= (local-time:timestamp-year (local-time:now)) %> <% @var author %><% @if email %> (<% @var email %>)<% @endif %>
<% @endif %>|#
-(clack.util:namespace <% @var name %>.view.emb
+(in-package :cl-user)
+(defpackage <% @var name %>.view.emb
(:use :cl)
(:import-from :caveman
:config))
+(in-package :<% @var name %>.view.emb)
(cl-syntax:use-syntax :annot)
View
4 skeleton/src/app.lisp
@@ -3,10 +3,12 @@
<% @if author %> Copyright (c) <%= (local-time:timestamp-year (local-time:now)) %> <% @var author %><% @if email %> (<% @var email %>)<% @endif %>
<% @endif %>|#
-(clack.util:namespace <% @var name %>.app
+(in-package :cl-user)
+(defpackage <% @var name %>.app
(:use :cl)
(:import-from :caveman.app
:<app>))
+(in-package :<% @var name %>.app)
(cl-syntax:use-syntax :annot)
View
4 skeleton/src/controller.lisp
@@ -3,12 +3,14 @@
<% @if author %> Copyright (c) <%= (local-time:timestamp-year (local-time:now)) %> <% @var author %><% @if email %> (<% @var email %>)<% @endif %>
<% @endif %>|#
-(clack.util:namespace <% @var name %>.controller
+(in-package :cl-user)
+(defpackage <% @var name %>.controller
(:use :cl
:caveman
:<% @var name %>.app)
(:import-from :<% @var name %>.view.emb
:render))
+(in-package :<% @var name %>.controller)
(cl-syntax:use-syntax :annot)
View
4 skeleton/src/skeleton.lisp
@@ -3,7 +3,8 @@
<% @if author %> Copyright (c) <%= (local-time:timestamp-year (local-time:now)) %> <% @var author %><% @if email %> (<% @var email %>)<% @endif %>
<% @endif %>|#
-(clack.util:namespace <% @var name %>
+(in-package :cl-user)
+(defpackage <% @var name %>
(:use :cl
:clack
:clack.builder
@@ -24,6 +25,7 @@
(:import-from :cl-ppcre
:scan
:regex-replace))
+(in-package :<% @var name %>)
(cl-syntax:use-syntax :annot)

0 comments on commit d34bebe

Please sign in to comment.